是否可以使用 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
最佳答案
为什么要使用 grep
?这可能会做你想要的:
my @hrefs = $examples_content =~ /href="(.*?)"/g
关于regex - 可以使用 Perl 的 grep 和正则表达式返回捕获,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/8424699/