削除HTMLページのスタイルタグ

Question

私はHTML形式のタグを削除しようとしているので、ページが、私はそれが

これを動作するように取得するように見えるカント何のスタイリングを持っていないとの内容のすべては、私が

持っているものです

$PageContent = qq~<style type="text/css"> 
/* PAGE STYLE */ 
body { 
     margin:24px; 
     padding:0px; 
     background:#323232; 
     color:#EEEEEE; 
     min-width:748px; 
     font-family:'Verdana', sans-serif; 
     font-size:9pt; 
     font-weight:500; 
     line-height:12pt; 
     text-decoration: none; 
}</style>~; 

$PageContent =~ s/<style.*?<\/style>//isg; 

print $PageContent; 

Answer 1

Mojo::DOMのようなHTML DOMパーサーを使用できます。

use Mojo::DOM; 
use strict; 
use warnings; 

my $dom = Mojo::DOM->new; 
my $html = "<div><div><div>Test</div></div></div>"; 

while($html =~ m/<div>/) { 
    $html = $dom->parse($html)->at('div')->strip; 
} 

print $html; 

Output: Test 

また、<div>タグに一致するDOM関数の1つを使用します。私の例では$html =~ m/div/の行は単純なデモンストレーション目的のためのものです。