regex - 如何让 perl 在命令行中打印所有匹配项？

Question

我想在命令行中打印所有匹配项，如下所示:

perl -0777 -nle 'print "$1\n" if /ModelProxy\("([\w*.]+)"\);/g' test.txt

test.txt如下所示:

var orderform = new ModelProxy("orderform.b2b.*");
var orderform2b = new ModelProxy("web.orderform_2b.*");
var o2oOrderform = new ModelProxy("orderform.o2o.*");
var logistics = new ModelProxy("supply.logistics.*");
var tyreurgent = new ModelProxy("o2o.tyreurgent.*");
var common = new ModelProxy("web.common.file.*");
var cartPipeData = load("pipe/cartPipeData");
var tsCartPipeData = load("pipe/tsCartPipeData").default;

我想要的是:

orderform.b2b.*
web.orderform_2b.*
orderform.o2o.*
supply.logistics.*
o2o.tyreurgent.*
web.common.file.*

但我得到了第一个:

orderform.b2b.*

Answer 1

if//g 没有意义。您正在寻找 while//g。

perl -0777ne'print "$1\n" while /ModelProxy\("([\w*.]+)"\);/g' test.txt

您预计比赛中途会出现换行吗？如果不是，则无需将整个文件读入内存。

perl -nle'print for /ModelProxy\("([\w*.]+)"\);/g' test.txt