Re: [問題] 如何消除html tag

看板Perl作者deh3215時間16年前 (2009/04/03 02:18)推噓1(1推 0噓 4→)

留言5則, 2人參與討論串2/2 (看更多)

※ 引述《b60413 (None)》之銘言： : 關於這個問題我知道可以用正規式直接去實做 : 但是對於正規式的使用還沒有很透徹的了解 : 想問看看是否有相關的HTML module可以把html tag消除掉 : 只留下tag跟tag中的內容 : (有到cpan網站中去找但是資料過於龐大找得很沒頭緒) : 或者有人可以跟我講如何利用正規式去實做嗎? : 有查到可用<(.| )*?>去消除所有的HTML Tag : 但是消除後的文字Home與Test連在一起....希望能做到分開的效果 : 或者是結果儲存在一個陣列當中 : 謝謝 : HTML Example: : <a href="HomeTest" rel="nofollow">http://127.0.0.1">Home<span>Test</span></a> : 須將Home跟Test抓出來 #------------------------------------------- use HTML::Strip; open(INPUT, "c:/a.txt"); @temp = <INPUT>; chomp @temp; foreach $t (@temp) { my $hs = HTML::Strip->new(); my $clean_text = $hs->parse($t); $hs->eof; print "$clean_text"; } 結果:Home Test #------------------------------------------- open(input, "c:/a.txt") or die; @temp = <input>; chomp(@temp); foreach (@temp) { my $tree = HTML::TreeBuilder->new; $tree->parse($_); my $formatter = HTML::FormatText->new; my $string = $formatter->format($tree); print $string; } 結果:HomeTest #------------------------------------------- 用過這兩個模組,第一個清的較乾淨 <a href="HomeTest" rel="nofollow">http://127.0.0.1">Home<span>Test</span></a> 存成變數用兩個模組清, 出來結果還是有tag,不太知道為何會這樣===>自己寫rgexp抓要的data... -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.223.225.6 ※ 編輯: deh3215 來自: 140.117.168.75 (04/03 09:13)