作者pat12345 (咖啡杯)
看板Perl
标题[问题] 移除#开头的行
时间Thu Jan 8 15:26:11 2015
哈罗，大家好，
最近刚接触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://webptt.com/cn.aspx?n=bbs/Perl/M.1420701974.A.243.html
※ 编辑: pat12345 (223.136.219.56), 01/08/2015 15:26:50
1F：推 DonDonMo: 可以插一行$_=～s/^#//；试试 01/08 18:39
2F：→ CindyLinz: 等等.. 他应该是想要让整行不见吧 ^^| 01/08 18:56
3F：→ CindyLinz: 原 po 把 /#/ 改成 !/^#/ 吧 01/08 18:56
4F：→ pat12345: ok罗，真是感谢啊^^| 01/08 23:34
5F：推 herculus6502: perl -pe "s/^#.*//" file.txt > new1.pl 01/09 10:26
6F：→ xatier: grep -v ^# file 这不用用 Perl 吧 XD 01/09 13:44