2007-09-05 メモ 私事 #!/usr/bin/perl -w while(<>) { chomp; @sql = split; foreach (@sql) { print "$_ "; } }