PTT數位生活區 / Perl

[問題] 移除#開頭的行

看板Perl作者 (咖啡杯)時間10年前 (2015/01/08 15:26), 10年前編輯推噓2(2推 0噓 4→)
留言6則, 5人參與, 最新討論串1/1
哈囉，大家好， 最近剛接觸perl， 想請問如何移除file.txt 裡面以#開頭的行呢? 謝謝 open FILE, "</pwd/file.txt"; open FILE1, ">new1.pl"; while (<FILE>){ if (/#/){ print FILE1 "$_\t"; } } close FILE -- Sent from my Android -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 223.136.219.56 ※ 文章網址: http://www.ptt.cc/bbs/Perl/M.1420701974.A.243.html ※ 編輯: pat12345 (223.136.219.56), 01/08/2015 15:26:50
推
01/08 18:39, , 1F
可以插一行$_=～s/^#//；試試
01/08 18:39, 1F
→
01/08 18:56, , 2F
等等.. 他應該是想要讓整行不見吧 ^^|
01/08 18:56, 2F
→
01/08 18:56, , 3F
原 po 把 /#/ 改成 !/^#/ 吧
01/08 18:56, 3F
→
01/08 23:34, , 4F
ok囉，真是感謝啊^^|
01/08 23:34, 4F
推
01/09 10:26, , 5F
perl -pe "s/^#.*//" file.txt > new1.pl
01/09 10:26, 5F
→
01/09 13:44, , 6F
grep -v ^# file 這不用用 Perl 吧 XD
01/09 13:44, 6F
‣ 更多 pat12345 的文章
文章代碼(AID): #1KhZ4M93 (Perl)
Perl 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 pat12345 的文章
文章代碼(AID): #1KhZ4M93 (Perl)