Perlメモ: サンプル: スクリプトや設定ファイルのコメント（#以降）を削除する

#!/usr/bin/perl

while (<>) {
    if (/^[^#]+$/) {
        # There is no '#' in this line.
        print;
    } elsif (/^([^#]+)#/) {
        # Some characters may exist before '#'.
        print "$1\n";
    }
}

$ ./sample.pl < sample.pl

while (<>) {
    if (/^[^

        print;
    } elsif (/^([^

        print "$1\n";
    }
}