perl - 仅从命令行打印 perl 中的匹配行

Question

我正在尝试从文件中提取所有 ip 地址。到目前为止，我只是在使用

cat foo.txt | perl -pe 's/.*?((\d{1,3}\.){3}\d{1,3}).*/\1/'

但这也会打印不包含匹配项的行。我可以通过 grep 管道来解决这个问题，但这似乎应该是不必要的，如果正则表达式不完美匹配，可能会导致错误。

有没有更简单的方法来实现这一点？

Answer 1

尝试这个:

cat foo.txt | perl -ne 'print if s/.*?((\d{1,3}\.){3}\d{1,3}).*/\1/'

或者:

<foo.txt perl -ne 'print if s/.*?((\d{1,3}\.){3}\d{1,3}).*/\1/'

这是我在仍然使用 Perl 时能想到的最短的替代方案。

但是这种方式可能更正确:

<foo.txt perl -ne 'if (/((\d{1,3}\.){3}\d{1,3})/) { print $1 . "\n" }'