作者jlovet (Want 2 see u no more)
看板Perl
标题Re: [问题] 也是有关资料撷取的一个小问题请教
时间Wed May 14 02:09:57 2008
帮你写一个如果有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