Perl의 클래스를 기반으로 일부 HTML 태그를 대체하려면 어떻게해야합니까?

Question

는 펄을 사용하여 HTML에서 몇 가지 태그를 교체해야합니다

을 내가 가진이 :

<b>text</b><b>text</b><span id="b">text</span> 

: 나는 class=a와 span 태그 대신 b 태그로 변경되는 경우이 필요

<span class="a">text</span><span class="a">text</span><span id="b">text</span> 

HTML::Manipulator을 사용해 보았지만 성공하지 못했습니다.

Answer 1

여기 HTML :: TreeBuilder을 사용하는 방법은

#! /usr/bin/perl 

use warnings; 
use strict; 
use HTML::Parser; 
my $p = HTML::Parser->new(api_version => 3, 
    start_h => [\&start, "tagname, attr, text, skipped_text"], 
    end_h => [\&end, "tagname,  text, skipped_text"], 
); 
$p->parse_file(\*DATA); 

my @switch_span_end; 
sub start { 
    my($tag,$attr,$text,$skipped) = @_; 
    print $skipped; 
    unless ($tag eq 'span' && ($attr->{class}||"") eq "a") { 
    print $text; 
    return; 
    } 
    push @switch_span_end => 1; 
    print "<b>"; 
} 

sub end { 
    my($tag,$text,$skipped) = @_; 
    print $skipped; 
    if (@switch_span_end && $tag eq "span") { 
    print "</b>"; 
    pop @switch_span_end; 
    } 
    else { 
    print $text; 
    } 
} 
__DATA__ 
<span class="a">text</span><span class="a">text</span><span id="b">text</span> 

는 출력 :

<b>text</b><b>text</b><span id="b">text</span>

Answer 2

HTML::Tree을 사용하여 HTML을 구문 분석 한 다음 원하는 속성이있는 노드를 찾고 변경 한 다음 원하는대로 변경 한 새 트리를 출력하십시오.

use strict; 
use warnings; 
use HTML::TreeBuilder; 

my $html_string = '<span class="a">text</span><span class="a">text</span><span id="b">text</span>';  

my $root = HTML::TreeBuilder->new_from_content($html_string); 
$root->elementify; # Make $root into an HTML::Element object; 


for my $e ($root->look_down(_tag => 'span', class => 'a')) { 
    $e->tag('b'); 
    $e->attr(class => undef); 
} 

print $root->as_HTML; 

Answer 3

예는 HTML::Parser 사용 :