人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Perlに関する質問です。

7年ぶりくらいにPerlを使うことになったのですが、
ある、CSVファイルを読み込んで、行数をカウントさせたいのですが、
スマートな方法がわかりません。

関数も調べてみたのですが、見つかりませんでした。

※PHPで言うところのcount()です。

スマートな方法があれば、ご教授願います。

-------------------------------
自分でやってみたスクリプト
-------------------------------
open(CSV_FILE,”$csv_file”);
@lines = <CSV_FILE>;
close(CSV_FILE);
$list_num = 1;
foreach my $value (@lines){
$list_num = $list_num + 1;
}

●質問者: PEPOTA
●カテゴリ:ビジネス・経営 コンピュータ
✍キーワード:CSV open Perl PHP カウント
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

1 ● POPO
●28ポイント

http://ingres.t.u-tokyo.ac.jp/Lecture/WebApplication/text/node19...

open(CSV_FILE,”$csv_file”);

@lines = <CSV_FILE>;

close(CSV_FILE);

$listnum = @lines;


じゃ駄目ですか?

◎質問者からの返答

あら、@linesが数でしたか。

こんな単純なことも忘れるなんて、

月日のたつのは恐ろしいです。

ありがとうございました。

ちなみに、数を知りたかったので、0スタートではなく、1スタートなので

----------------------------------

open(CSV_FILE,”$csv_file”);

@lines = <CSV_FILE>;

close(CSV_FILE);

$list_num = @lines + 1;

----------------------------------

にしました。


2 ● masahikokimoto
●27ポイント

http://www.hatena.ne.jp/

はてな

CSVである必要はないんですね。

これでは駄目でしょうか。


open(CSV_FILE,”cvsfile.csv”);

@lines = <CSV_FILE>;

close(CSV_FILE);

$list_num = $#lines + 1;

◎質問者からの返答

そうですね。

CSVである必要はないですね。

行数なので、どんなファイルでも良かったです。

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


3 ● english
●5ポイント

http://www.rfs.jp/sitebuilder/perl/02/04.html

302 Found

配列の数を取得したいだけであれば、


$length = @lines;


で取得可能です。

◎質問者からの返答

だったみたいですね。

ありがとうございました!

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ