perl中如何把所有的情况匹配出来并且把值取到？

Posted 2023-03-09

例如：$str = "A as AAA,B as BBB,c as CCC。。。。";
想把所有as后面所有的单词取出来( AAA BBB CCC)，as可能会有很多个，这只是一个例子。

你注意正则匹配的贪婪性，
$line=~ /[as]*/;
要是不行就，$model='a'.'b';
$line=~ /[$b]*/;

最后print OUTFILE("$1\n");
@array=$1;
再用shift函数去上两次
或者for($i=0;$i<@array;$i++) if($i>=2)$line2.=$array[$i];
print OUTFILE ($line2);
我多年不看perl了 笨死了
或者直接@array=split(as,$line); 这样可以按你的自己需要从数组提取序列
希望对你有帮助，
给个感谢吧，顶一下了 参考技术A

$str = "A as AAA,B as BBB,c as CCC。。。。";
while($str=~/\\w+\\s+as\\s+(\\w+)/mg)

push @words,$1;

print "@words";

Perl 借用了C、sed、awk、shell脚本以及很多其他编程语言的特性。 Perl 最重要的特性是Perl内部集成了正则表达式的功能，以及巨大的第三方代码库CPAN。

参考技术B while($str=~/\w+\s+as\s+(\w+)/mg)

push @words,$1;
追问

取出来怎么都是空呢？你那里运行出来了？

追答

$str = "A as AAA,B as BBB,c as CCC。。。。";
while($str=~/\w+\s+as\s+(\w+)/mg)

push @words,$1;

print "@words";

本回答被提问者采纳 参考技术C @as = $str=~/(?<=\bas )\w+\b/ig;