コメントを削除する.plの変更点
- 追加された行はこのように表示されます。
- 削除された行は
このように表示されます。
{{category Perl}}
----
#! /usr/local/bin/perl
die "arg !" if (@ARGV < 1);
while (<>) {
s/^\s*#[^!]*\n//; # Shebangでない、行頭から始まるコメント、または空白の後に記述されているコメント。
s/(\;)(\s*#.*)(\n)/$1$3/; # 意味のあるPerl文の後ろに記述されているコメント。
print;
}