謝謝 不過請問一下,為什麼我用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 不錯，可以先看

感謝..