regex - 可以使用 Perl 的 grep 和正则表达式返回捕获

Question

是否可以使用 Perl 的 grep 函数只返回正则表达式的捕获部分？我有如下代码:

use LWP::Simple;
my $examples_content = get('http://example.com/javascript/reports/examples/');
my @hrefs = grep(/href="(.*)"/, split("\n", $examples_content));
print $hrefs[0];

打印出来的是:

独立的单问题图表

当我只想:simple_chart.html

Answer 1

为什么要使用 grep？这可能会做你想要的:

my @hrefs = $examples_content =~ /href="(.*?)"/g