謝謝 不過請問一下,為什麼我用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