Re: [問題] 也是有關資料擷取的一個小問題請教

[jlovet (Want 2 see u no more)]

幫你寫一個如果有ccccc就會印出第一行數字的
這樣應該很好改

#!/usr/bin/perl
$/="\n\n";
while(<STDIN>){
        print ((split/\n/,$_)[0]."\n") if ($_=~m/ccccc/);
}


$ ./xxx.pl<xxx.txt
1111111
3333333

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.123.102.254