Question

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

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

Answer 1

你注意正则匹配的贪婪性，
$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); 这样可以按你的自己需要从数组提取序列
希望对你有帮助，
给个感谢吧，顶一下了

Answer 2

$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。

Answer 3

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";

Answer 4

@as = $str=~/(?<=\bas )\w+\b/ig;