У меня возникли проблемы с извлечением javascript с помощью Web :: Scraper. Ниже мой тестовый скрипт:Извлечение javascript с помощью Web :: Скребок
#!/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' => [
''
]
};
Мне кажется, что я в поиске тег сценария, но не сохранение содержимого между тегами.
Спасибо за предложение. Я попробовал изменение, и он вытащил код js. Единственная проблема заключается в том, что данные в var имеют котировки, которые отображаются как '"', что делает синтаксический анализ данных более сложным. – BurritoBoy