作者kornelius (c9s)
看板Perl
标题Re: [问题] match 下一行
时间Tue Apr 21 12:56:19 2009
如果档案不是太大，何不用
local $/;
my $content = <READ>;
while( $content =~ m/<cite>(.*?)<\/cite>/g ) {
# do something
}
※ 引述《yingwan (yingwan)》之铭言：
: 不好意思，这可能是一个很简单的问题，还请大家见谅
: 我有很多档案，每个档案里面有一堆tag，但我只想要<cite>XXXOOO</cite>
: 不过每次都只能抓到第一行，偏偏我也不知道档案里有几个
: 所以 for i loop的 i我不知道设多少
: 试了一堆方法都没有成功
: 我是这样写的，希望有高手提点一下，谢谢
: open(READ, "<$file") || die "Can't read $file: $!\n";
: my @lin = <READ>;
: chomp @lin;
: close (READ);
: foreach (@lin) {
: #for ($i=1; $i<=$coun; $i++) {
: for (/<cite>(.*?)<\/cite>/ig) {
: $lin=$1;
: $lin=~ s/<b>//g;
: $lin=~ s/<\/b>//g;
: $lin=~ s/\s//g;
: $lin=~ s/-\d+k-//g;
: $lin=~ s/\d+hoursago-//g;
: $lin=~ s/\d+minutesago-//g;
: $lin=~ s/-$//g;
: $lin=~ s/https:\/\///g;
: push (@lins, $lin);
: $coun++;
: #}
: }
: }
--
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 113.61.194.203