CSVファイルの処理方法

質問

PerlでCSVファイルの処理をしようとしています。

CSVファイル（ここではdata1.csvとします）の中身は、A列とB列に数値が1000行程表記されています。

-5,1
-4,2
-3,3
　・
　・
　・

作成したPerlのファイル（ここではtest1.plとします）下のようにし、

while ($_=<stdin>){
print"$_\n";
}

Cygwinコマンド上で、

$ perl test1.pl <data1.csv

と入力すると、CSVファイル(data1.csv)の数値がCygwinコマンド上に全て表記されます。

前置きが長かったのですが、CSVファイル(data1.csv)の3行目までの数値だけをCygwinコマンド上に表記したい場合、どのようにプログラムすればよいのですか。

お願いします。

回答No.3

kmee · ベストアンサー

この例だとCSVとか列とか全然関係無いですね。

常套手段として方針は2つ
(1)先に3行だけのCSVにする
(2)Perlで3行だけ

(1)なら、Cygwinの(というか、UNIX系OSで標準的な) headコマンドとセットにして
head -3 data1.csv | perl test1.pl

# headコマンドがなんだかわからなければ、man head を実行してみる。
# | (パイプ)がなんだかわからなければ、「標準入出力」「リダイレクト」「パイプ」あたりで検索して概念を覚えておくといろいろ便利

(2)なら、#1を参考に。

お礼

回答ありがとうございます。

headコマンド、 | (パイプ)も教えて頂きありがとうございます。

回答No.2

notnot

＞CSVファイル(data1.csv)の3行目までの数値だけをCygwinコマンド上に表記したい場合、どのようにプログラムすればよいのですか。

意味が不明です。次のうちどれですか？
１．データをコマンドライン上で指定したい
２．データをファイルから読むのだが、ファイルのデータの前に３行分だけコマンドラインで指定したい
３．その他

１．の場合
$ ( echo -5,1; echo -4,2; echo -3.1 ) | perl test1.pl

２．の場合
$ ( echo -5,1; echo -4,2; echo -3.1; cat data1.csv ) | perl test1.pl

お礼

回答ありがとうございます。

説明が良くなかったのですが、、、

やりたかったことは、CSVファイルのA列B列記載の数値を、(全ての行ではなく)3行目までコマンド上に表示です。

回答No.1

Wr5

>3行目までの数値だけをCygwinコマンド上に表記したい場合

whileループで何行目まで処理したかカウントして、必要な行数処理したらループから抜ける。

$line = 0;
while ($_=<stdin>){
　print"$_\n";
　$line++;
　if($line == 3) last;
}

みたいな感じでしょうか。
まぁ、そういう場合ならforループにすると思いますが。

for($line = 0;$_=<stdin> && $line < 3;$line++) {
　print"$_\n";
}

でしょうかね。

CSVファイルかどうかは関係ないみたいですが……。

お礼

回答ありがとうございます。

上記プログラムで実行出来ました。