哈囉，大家好，
最近刚接触perl，
想请问如何移除file.txt 里面以#开头的行呢?
谢谢
open FILE, "</pwd/file.txt";
open FILE1, ">new1.pl";
while (<FILE>){
if (/#/){
print FILE1 "$_\t";
}
}
close FILE

可以插一行$_=～s/^#//；试试

等等.. 他应该是想要让整行不见吧 ^^|原 po 把 /#/ 改成 !/^#/ 吧

ok囉，真是感谢啊^^|

perl -pe "s/^#.*//" file.txt > new1.pl

grep -v ^# file 这不用用 Perl 吧 XD