与grep -Eo等价的Perl

Question

在shell脚本中，grep -Eo {regex} {file}返回正则表达式的匹配部分。例如：

$ echo \
'For support, visit <http://www.example1.com/support>
You can also visit <http://www.example2.com/products> for information.'
| grep -Eo 'http://[a-z0-9_.-]+/'

http://www.example1.com/
http://www.example2.com/

我将如何使用Perl来做到这一点呢？

Answer 1

以下是两种方法：

1. 在Perl中，特殊变量$&包含正则表达式的匹配部分。 perl -ne‘打印"$&\n“如果m#.-]+/#’‘<输入
2. 如果正则表达式包含捕获组，则将这些组匹配的模式分配给变量$1、$2、. perl -ne‘打印"$1\n“如果m#(.-]+/)#’< input

Answer 2

为了获得-o功能，我建议如下：

echo abcdabcd | perl -lne 'while ($_ =~ s/(bc)//){print $1}'
bc
bc

echo abcdabcd | grep -Eo 'bc'
bc
bc

但以你为例，我建议perl -pe 's|(http://[\w-\.]+/).*|$1|g'

echo 'http://www.example1.com/support' | perl -pe 's|(http://[\w-\.]+/).*|$1|g'
http://www.example1.com/