perl二维数组的遍历

$line = ['solid' , 'black' , ['1','2','3','10','101'] , ['4','5','6']]; $len = scalar(@$line); for($i = 0; $i < $len; $i += 1){         $seclen=$line->[$i];     $lenj=scalar(@$seclen);     if ($seclen

>>阅读原文<<