Perl求教：模式匹配中关于“Use of uninitialized value”的问题
程序中的一条语句是这样的：
while ( !($lista[$i] =~ (/xml/))) {
$i++;
}
运行后提示改行程序出错：
Use of uninitialized value in pattern match (m//) at /project/TD-RAN/tools/pm_tools/pmgrabber1.01 line 1251.

求教高手，这是什么错误呢，应该如何改？


[解决办法]
while ( $i < @lista && $lista[$i] !~ /xml/ ) {
$i++;
}