我的脚本中有以下代码:
while (my ($key, $value) = each @values) {
if ( $key < $arraySize-1) {
if ( $values[$key+1] eq "user") {
$endcon=1;
}
}
if ( ( $startcon == 1 ) && ( $endcon != 1 ) ) {
$UptimeString .= $value;
}
if ( $value eq "up") {
$startcon=1;
}
if ( $value eq "average:") {
$LoadMinOne=$values[$key+1];
}
}
在编译它时,在 perl 5.14 中,我没有警告,但在 perl 5.10.1 中,我有这个警告:Type of arg 1 to each must be hash (not private array) at ./uptimep.pl line 21, near "@values) "
第 21 行是while (my ($key, $value) = each @values) {
这是什么意思?