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

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

よろしくお願いします。

No.4 ベストアンサー 回答者： BLUEPIXY 回答日時： 2005/09/08 11:39

$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つ目だけを取り出してやればいいんですね。
ありがとうございました！！

お礼日時：2005/09/08 13:12

No.3 回答者： lelelelele 回答日時： 2005/09/08 11:33

＃１です。

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

No.2 回答者： eberbach 回答日時： 2005/09/08 11:32

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

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

No.1 回答者： lelelelele 回答日時： 2005/09/08 11:31

入力ファイルを一行読み込み、それを配列に蓄え必要な行だけ出力する。

@ar = split /,/, $sentence;
print "$ar[2],$ar[3],$ar[4]";
みたいな。