Re: [問題] match 下一行
如果檔案不是太大，何不用
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
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
