Question

是否有一些强大的工具/平衡,像像象白天那样的美丽?

Thanks

Answer 1

/2006/2:TreeBuilder:XPath 是大多数问题的体面解决办法。

Answer 2

我从未使用过美容素,但从速从文件上抽空来看,你可能希望 :TreeBuilder 。它可以处理即使是破碎的文件,并允许对平流树木或 que子的反射——在上看<>。

如果你喜欢/了解XPath,见Daxim的建议。如果你想通过安全局的挑选人收集物品,请看。 http://search.cpan.org/perldoc?Mojo%3a%3aDOM “Mojo:DOM。

Answer 3

As you re looking for power, you can use XML::LibXML to parse HTML. The advantage then is that you have all the power of the fastest and best XML toolchain (excecpt MSXML, which is MS only) available to Perl to process your document, including XPath and XSLT (which would require a re-parse if you used another parser than XML::LibXML).

use strict;
use warnings;
use XML::LibXML;
# In 1.70, the recover and suppress_warnings options won t shup up the
# warnings. Hence, a workaround is needed to keep the messages away from
# the screen.
sub shutup_stderr {
    my( $subref, $bufref ) = @_;
    open my $fhbuf,  > , $bufref;
    local *STDERR = $fhbuf;
    $subref->(); # execute code that needs to be shut up
    return;
}
# ==== main ============================================================
my $url = shift ||  http://www.google.de ;
my $parser = XML::LibXML->new( recover => 2 ); # suppress_warnings => 1
# Note that "recover" and "suppress_warnings" might not work - see above.
# https://rt.cpan.org/Public/Bug/Display.html?id=58024
my $dom; # receive document
shutup_stderr
    sub { $dom = $parser->load_html( location => $url ) }, # code
    my $errmsg; # buffer
# Now process document as XML.
my @nodes = $dom->getElementsByLocalName(  title  );
printf "Document title: %s
", $_->textContent for @nodes;
printf "Lenght of error messages: %u
", length $errmsg;
print  -  x 72, "
";
print $dom->toString( 1 );

友情链接