Perlでファイルの列を削除する。

質問

どのように書けばいいかわからないので教えてください。
","で区切られたcsvファイルがあるとします。（file.csv)
そのファイルは全部で５列ありますが、４列目と５列目は値が入っている場合と無い場合があります。（１～３列目は必ず値は存在します。）
このファイルの1列目と2列目を削除して、3列目から5列目だけのファイルを作成したいのですが、どうすればいいのでしょうか？

よろしくお願いします。

回答No.4

BLUEPIXY · ベストアンサー

$line='a,b,c,d,,f';
($first, $second, $rest) = split(/,/,$line,3);
print $rest;
みたいにすれば、３列目以降を$restにとりだせます。
３列目以降に値が入っていない列があっても大丈夫です。

お礼

$line='a,b,c,d,,f';
($first, $second, $rest) = split(/,/,$line,3);
print $rest;

そっか。３つに区切って3つ目だけを取り出してやればいいんですね。
ありがとうございました！！

回答No.3

lelelelele

＃１です。訂正。
>必要な行だけ出力する。
列ですね。

回答No.2

eberbach

配列変数に１行ずつデータがあるとして、単純なところでは・・・

foreachで回して必要な所だけで要素を構成して新しい配列変数に入れ、それをファイルに書き出すというのはどうか。

回答No.1

lelelelele

入力ファイルを一行読み込み、それを配列に蓄え必要な行だけ出力する。
@ar = split /,/, $sentence;
print "$ar[2],$ar[3],$ar[4]";
みたいな。