Re: [問題] 抓html tag
看板RegExp (正規表示式 Regular Expression)作者giacch (小ａ)時間16年前 (2008/11/08 13:46)推噓1(1推 0噓 0→)留言1則, 1人參與討論串2/2 (看更多)
※ 引述《yingwan (yingwan)》之銘言：
(略過...)
: 我用perl是這樣寫的:
: open(IN, $file) || die "can't read $file";
: @file = <IN>;
undef *TMP;
for(@file) {
$_ = $TMP . $_ if($TMP);
while(/<[^>]+>/) {
push(@TMP, $1) if(s/(<[^>]+>)//);
}
/(<[^>]+)/ ? $TMP = $1 : undef $TMP;
} @file = map { s/ >/>/; s/\n//; s/ +/ /g; $_ } @TMP;
: print "These are the opening tags:\n";
: foreach $line (@file){
: find_opening_tags($line);
(略過...)
加上那一段就會和結果一樣了...
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.232.236.185
推
11/09 08:09, , 1F
11/09 08:09, 1F
討論串 (同標題文章)
RegExp 近期熱門文章
PTT數位生活區 即時熱門文章
