perlでCSVファイルから1行読み込む

2年 ago
綾乃, 一希
1 minute

Perlでは、Text::CSVというモジュールを利用してCSVファイルから1行読み込むことができます。以下にそのサンプルコードを示します。

use strict;
use warnings;
use Text::CSV;

my $csv = Text::CSV->new({ sep_char => ',' });

open(my $fh, '<', 'input.csv') or die "Can't open input.csv: $!";
while (my $row = $csv->getline($fh)) {
    # 处理一行数据
    foreach my $field (@$row) {
        # 处理每个字段
        print "$field\t";
    }
    print "\n";
}
close($fh);

上述のコードでは、まず Text::CSV モジュールを使用して CSV オブジェクトを作成しました。次に、open 関数を使用して CSV ファイルを開き、ファイルハンドルを $fh 変数に代入しました。その後、getline メソッドを使用して、ファイルハンドルからファイル内のデータを 1 行ずつ読み込みました。各行のデータに対して、foreach ループを使用して各フィールドを反復処理し、適切な処理を実行できます。

CSVファイルのデリミタがコンマであると仮定していることに注意してください。他のデリミタが使用されている場合は、CSVオブジェクトを作成するときに、sep_charパラメータを使用してデリミタを指定できます。

bannerAds