2005-07-20 いい加減スクリプト Perl #!/usr/local/bin/perl my $i = "01"; if( $i =~ /^0\d$/ ){ print "!!!!\n"; print "i = $i\n\n"; $i = substr($i,1); print "i = $i\n\n"; } elsif( $i =~ /^1\d$/ ){ print "????\n"; } else{ print "++++\n"; } 1; 二桁の数字の最初が「0」だった場合の処理。 だいじょぶ、成長してるって