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