2008-04-08 2.7 セミコロン Perl Practices 全ての文の後ろにセミコロンを配置する。 while (my $line = <>) { chomp $line; if ( $line =~ s{\A (\s*) -- (.*)}{$1#$2}xms ) { push @comments, $2; } print $line; }