Perlについての質問箱 45箱目
■ このスレッドは過去ログ倉庫に格納されています
0074デフォルトの名無しさん
2010/10/30(土) 00:23:07タブ区切りのテキストデータを読み込んで、行と列の二次元配列を作ろうと思い
このようにしたらとりあえず動きました。
$count = 0;
open(IN, $ARGV[0]);
while($line = <IN>){
@linedata = split(/\t/, $line);
for($i = 0; $i < @linedata; $i++){
$datas[$count][$i] = $linedata[$i];
}
$count++;
}
close(IN);
ただ、もっとスマートに書けないものかといろいろといじってみても
うまくいきません。
@datas[$count++] = split(/\t/, $line);
みたいな感じで一発で配列を代入するにはどうしたらいいでしょうか?
■ このスレッドは過去ログ倉庫に格納されています