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;
}
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する
みんなの回答
-
POPO
満足28pt
open(CSV_FILE,”$csv_file”);
@lines = <CSV_FILE>;
close(CSV_FILE);
$listnum = @lines;
じゃ駄目ですか？
-
PEPOTA
-
- その他の回答を読む
PEPOTA
この質問へのコメント
質問の情報
- 登録日時
- 2005-06-23 22:50:00
- 終了日時
- --
- 回答条件
- 回答にURL必須 1人2回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…
匿名質問者
3
1
-
不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者11
-
日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者
-
共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者21
-
内定してほしいポケモンはいますか？匿名質問者