谢谢 不过请问一下,为什么我用while 会print 不出东西 用 if 却可以
match m/里面的 g 是代表什么?
for( @array_source)
{
if (m/*?\/var-(.*)\/.*\/(var.*)/)
{
print "$_\n";
print "$1\n";
}
print "aaaaaa\n";
while( m!/.*?/(.*?)/.*?/(.*?),!g ) {
print "$1\n$2\n";
}
output

Cindy 的 RE 是给你用在一整行上的. 已经用 split 以逗点切开的话要把 regular expression 最后的逗点拿掉BTW, 你 if 用的 regular expression 改变意义了

g是..有两种用法, 建议查 perlre 里面的说明比较好 ^^|嗯, 我给的程式是对你的原 po 中 $VAR1 $VAR2 那样的输入操作的

perldoc retut 不错，可以先看

感谢..