0 
#!/usr/bin/perl

use HTML::TreeBuilder;

my $tree = HTML::TreeBuilder->new; 

$tree->parse_file("sample.html");

foreach my $anchor ($tree->find("p")) {

  print $anchor->as_text, "\n";

}

私のコードは出力を印刷していません。$tree->find("p")NULL を返しています。

4

1 に答える 1

0

ファイルを開いていないか、完全に解析できません。

次のようなものを試してください：

my $file = shift(@ARGV) or die "No filename given";
$tree->parse_file($file) or die "Unable to open $file";

そうすれば、それがどれであるかを確認できます。

あなたのスクリプトは、sample.html に次のものがあったときに正常に機能しました

<html>
<head><title>test file</title></head>
<body>
    <h1>Title</h1>
    <p>First para</p>
    <p>Second para</p>
    <div>
        <P>Third para</P>
    </div>
</body>
</html>
于 2012-11-06T12:20:41.877 に答える