调试问题解决

hustddb

@output1 = $session->cmd(-String => "$TR" , -Timeout => 300);
               $fan="@output1";
               @fan=$fan=~ m/\s+:\s+(.*\sdBm$)/img ;};
               @fan[$num]= $1 ;
               $num++;


调试时出现  Scalar value @fan[$num] better written as $fan[$num]

我要把比较出的值依次序 添加进@fan ，该怎么办？？谢谢了

ynchnluiti

原帖由 hustddb 于 2009-1-12 16:44 发表
@output1 = $session->cmd(-String => "$TR" , -Timeout => 300);
               $fan="@output1";
               @fan=$fan=~ m/\s+:\s+(.*\sdBm$)/img ;};
               @fan[$num]= $1 ;
           ...

提示说了@fan[$num] -> $fan[$num]
或者push @fan, $1

ynchnluiti

是在循环内给@fan添加元素吗？

churchmice

看effective perl programming
里面有一条就是不要使用只有一个元素的切片（数组或者散列），那样效率不高
你这个就属于只有一个元素的数组切片，so better to use $, not @

MMMIX

原帖由 ynchnluiti 于 2009-1-12 16:54 发表

提示说了@fan[$num] -> $fan[$num]
或者push @fan, $1

Perl 程序员很少直接用 index 访问数组，而是用 push/pop/shift/unshift，C 程序员才总是直接用 index 访问数组成员，因为没有其他方法了

ynchnluiti

原帖由 MMMIX 于 2009-1-12 17:53 发表

Perl 程序员很少直接用 index 访问数组，而是用 push/pop/shift/unshift，C 程序员才总是直接用 index 访问数组成员，因为没有其他方法了

perl太智能了。

hustddb

可是改成@fan[$num] -> $fan[$num]
还是报错

hustddb

是在循环内给@fan添加元素  直接push 就可以？

ynchnluiti

原帖由 hustddb 于 2009-1-12 23:06 发表
可是改成@fan[$num] -> $fan[$num]
还是报错

代码不全

@output1 = $session->cmd(-String => "$TR" , -Timeout => 300);
               $fan="@output1";
               @fan=$fan=~ m/\s+:\s+(.*\sdBm$)/img ;};  #{没贴出来？。这样赋值,@fan之前的值会覆盖吧
               @fan[$num]= $1 ;              #上面已经把匹配的结果赋值给@fan了。并且这里应该在匹配成功时才引用$1

ynchnluiti

原帖由 hustddb 于 2009-1-12 23:08 发表
是在循环内给@fan添加元素  直接push 就可以？

可以啊，贴的代码不太全，所以不是很清楚你的需求。

简单写一下

1. 
   
2.      ...
   
3.     @output1 = $session->cmd(-String => "$TR" , -Timeout => 300);
   
4.     $fan="@output1";
   
5.     push @fan, $fan=~ m/\s+:\s+(.*\sdBm$)/img;
   
6. #};
   
7. #@fan[$num]= $1 ;
   

复制代码