删除#字符开始的行

bzh_516

日志中，有#开始的注释行，如下。用perl，如何能删除#开头的行，还请教大家。多谢
#Remark: DCS-p
#Software:

Albert_King

open (FILEIN,"<E:/project/Poker/aaa.txt") or die("Can't open IN");
open (FILEOUT,">E:/project/Poker/bb.txt") or die("Can't open OUT");
while(<FILEIN>)
{
        s/^#.*\n//g;
        print FILEOUT $_;
}
close(FILEOUT);
close(FILEIN);

sunzhiguolu

回复 1# bzh_516
测试环境 => Windows.

1. cat ur.txt | perl -ne "next if (m/\A#/); print"

复制代码