2005-01-22 ■ Perl 失敗、失敗。 ( $x ) = $x =~ /(\d+)/;とやろうとして、 $x = $x =~ /(\d+)/;としていたとこ多数。 perl -e '$l=0; while(<STDIN>){ $l++; if(/^[^(]*\$.*=.*\/.*\(.*\).*\//){ print "$l:$_"; } }'で、探してみる。'$'の前に'('が来なくて、'=', '/', '(', ')', '/' と来る行。「'('が来ない」はあぶないかな。