关于模式匹配选项的问题

the_threeeyes

看了书上的几个模式匹配选项的例子，还是没有感觉到他们的用处，尤其是选项g，o，哪位师兄能帮我举个例子讲解一下吗？谢谢~~~~~~

devel

1.g的解释。
匹配所有可能的模式(g选项)
   @matches = "balata" =~ /.a/g; # now @matches = ("ba", "la", "ta")
   匹配的循环：
   while ("balata" =~ /.a/g) {
     $match = $&;
     print ("$match\n");
   }
   结果为：
     ba
     la
     ta
   当使用了选项g时，可用函数pos来控制下次匹配的偏移：
     $offset = pos($string);
     pos($string) = $newoffset;

2. o的解释
只执行一次变量替换例
   $var = 1;
   $line = <STDIN>;
   while ($var < 10) {
     $result = $line =~ /$var/o;
     $line = <STDIN>;
     $var++;
   }
   每次均匹配/1/。

其他不懂的请先看http://www.yuzi.net/perl5/perl6. ... C%B5%C4%C4%A3%CA%BD(g%D1%A1%CF%EE)

the_threeeyes

2. o的解释
只执行一次变量替换例
$var = 1;
$line = <STDIN>;
while ($var < 10) {
$result = $line =~ /$var/o;
$line = <STDIN>;
$var++;
}
每次均匹配/1/。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
我的书上也是这两个例子，这个我有点不明白了
每次匹配/1/是不是指在$var++之后返回执行 $result = $line =~ /$var/o;的时候仍然匹配/1/，而不管$var现在的值是不是1，而现在$var的值为2了是吗？这这个意思吧？

devel

这个脚本不是很好，我改了一下。:sorry

#!/usr/bin/perl -w
$var = 1;
while ($var < 6) {
$line=<>;
$result = $line =~ /$var/o;
print "$result\n";
$var++;
}

这里的o是使$var++失效，每次输入的数字有1结果都为真。
你把o去掉就可以看出了。

只执行一次变量替换例，就是只要初值，以后都不变化了。

the_threeeyes

哦，运行的时候只匹配1了啊
我在print "$result\n";后加了
print "$var\n";
输出：
1
1（回车）

2（回车）
。
。
5
只输出了一次匹配1，循环时没有再输出了阿
这样看来好像是$var++有效，但/$var/o中不变
但后来又为什么没有输出$result呢？

georgek

$result = $line =~ /$var/o;
把這行分開便可以了

devel

$line =~ /$var/o; 是返回一个值个$result,真就是1,假就没有输出。

要输出符合条件并是原来的值，可以用这个脚本试试。

#!/usr/bin/perl -w
$var = 1;
while ($var < 6) {
$line=<>;
if ($line =~ /$var/o ){
print "$line\n";
}
$var++;
}