哈囉，大家好，
最近剛接觸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