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

改行を変える。(trって何？) perl -e 'while(<STDIN>){ s/\n/\r\n/; print; }' <uなファイル >wなファイル -nとか-pとか-iとか気になる。[isbn:4-87311-096-3:title]P586あたり。</uなファイル></stdin>

cygwinのメモ、どこやったかな。