Perke에서 TokeParser를 사용하여 자체 포함 된 태그에서 값 추출

Question

내가하는 일은 정말 쉽지만 어쨌든 나는 몇 시간 동안 고심하고있다. 따라서 올바른 방향으로 나를 가리 키도록하십시오.

<img src="random.jpg" class="someClass" id="someId" alt="test" /> 

을 현재이 코드와이 일치 할 수 없습니다 :

my $tp = HTML::TokeParser->new(\$rawHTML) || die "Cant't open: $!"; 
while (my $token = $tp->get_token){ 
    my $ttype = shift @{ $token }; 
    if($ttype eq "S"){ 
    my($tag, $attr, $attrseq, $rawtxt) = @{ $token }; 
    if ($tag eq "img"){ 
     if(($attr->{'class'} eq "someClass")&&($attr->{'id'}eq "someId")){ 
     my $alttext = $attr->{'alt'}; 
     print "AltText: $alttext"; 
     ... 
     } 
     }   
    } 
    } 
} 

TokeParser 그냥 자기가 타를 포함 무시하는 것 같다

나는 다음과 같습니다 일부 HTML있어 gs < ... /> 왜? 이 문제에 대한 해결책을 찾기 위해 열심히 수색했으며, TokeParser 나 다른 Perl 모듈과 함께 작동하게하는 데 도움이 될만한 것에 감사드립니다 ...

감사합니다!

Answer 1

:

이

#!/usr/bin/env perl 

use strict; use warnings; 
use HTML::TokeParser; 
use YAML; 

my $html = q{<img src="random.jpg" class="someClass" id="someId" alt="test"/>}; 

my $parser = HTML::TokeParser->new(\$html); 

while (my $token = $parser->get_token) { 
    print Dump $token; 
} 

출력은 :

--- 
- S 
- img 
- /:/
    alt: test 
    class: someClass 
    id: someId 
    src: random.jpg 
- 
    - src 
    - class 
    - id 
    - alt 
    -/
- '<img src="random.jpg" class="someClass" id="someId" alt="test"/>'

BTW, HTML::TokeParser::Simple주는 너 더 나은 인터페이스 야.

Answer 2

someClass 및 someId으로 주어진 html 코드에 대체 텍스트 "test"을 캡쳐하고 싶습니다. 이 경우, 다음을 시도하십시오

이

use Modern::Perl; 
use Web::Query qw(); 

my $w = Web::Query->new_from_html(<<'HTML'); 
<img src="random.jpg" class="someClass" id="someId" alt="test" /> 
HTML 

my @altText = $w->find('img[class="someClass"][id="someId"]')->attr('alt'); 

say @altText; 

출력 : 그것은 아무것도 무시하지 않습니다

test