可以使用Perl的grep和regex返回捕获

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