2012-08-20 matrix perl #データを行列の形にする foreach my $line (@lines){ @tmp=split /,/, $line;#$lineは一行 #warn @tmp; for($j=0;$j<scalar(@tmp);$j++){ #warn $tmp[$j]; $data[$i][$j]=$tmp[$j]; } $i++; }