Question

我无法使用Web :: Scraper解压缩javascript。下面是我的测试脚本：

#!/usr/bin/perl
use Modern::Perl;
use Web::Scraper;
use Data::Dumper;

my $contents = do { local $/; <DATA> };
my $scraper = scraper { process "//script", "scripts[]" => 'TEXT'; };
my $res = $scraper->scrape($contents);

say Dumper $res;

exit;

__DATA__
<html><head><title>hello</title></head>
<body>
  <script type="text/javascript">
    var dummy = {}
  </script>
</body>
</html>

我的输出：

$VAR1 = {
          'scripts' => [
                         ''
                       ]
        };

在我看来，我找到了脚本标签，但没有在标签之间保存内容。

Answer 1

我在挖掘xpath之后找到了解决方案。

更改刮刀线：

my $scraper = scraper { process "//script", "scripts[]" => 'TEXT'; };

要：

my $scraper = scraper { process "//script" => 'scripts[]' =>
                    scraper { process '//text()', 'script'=>'TEXT'} };

输出javascript代码：

$VAR1 = {
          'scripts' => [
                         {
                           'script' => '
    var dummy = {}
  '
                         }
                       ]
        };

我不相信流程线简洁但有效。

Answer 2

尝试使用RAW

#!/usr/bin/perl --
use strict;
use warnings;
use Web::Scraper;
use Data::Dump;
my $contents = q{
<html><head><title>hello</title></head>
<body>
  <script type="text/javascript">
    var dummy = {}
  </script>
</body>
</html>};
#~ my $scraper = scraper { process "//script", "scripts[]" => 'TEXT'; };
my $scraper = scraper { process "//script", "scripts[]" => 'RAW'; };
my $res = $scraper->scrape($contents);
dd $res;
__END__
{ scripts => ["\n    var dummy = {}"] }

使用Web :: Scraper提取javascript

2 个答案: