perl - 如何在网页中搜索字符串并打印出现搜索字符串的整行？

Question

我是编程新手，也在学习 perl。

我的问题是:如何在网页中搜索字符串并打印出包含搜索字符串的整行？

是否可以直接找到/点击该字符串，然后打印出包含搜索字符串的整行？我们是否需要为此强制使用 xpaths？

Answer 1

如果您要查找的只是一个非常基本的字符串，您可以使用 LWP::Simple和一个像这样的小正则表达式:

use LWP::Simple;

my $doc = get('http://stackoverflow.com/q/11771655/479133') || die "GET failed";
foreach my $line (split("\n", $doc)) {
    print $line and last if $line =~ m/Here's my query/;
}

CPAN 上有无数的模块可以做这样的事情。看看Task::Kensho::WebCrawling如果您需要“更大”的东西。