パーलで 1 行 CSV ファイルを読み込む

Perlでは、Text::CSVモジュールを使用することでCSVファイルを読み込むことができます。以下はCSVファイルの1行を読み込む方法のサンプルコードです。

use strict;
use warnings;
use Text::CSV;
my $csv = Text::CSV->new({ sep_char => ',' });
# 打开CSV文件
open(my $fh, '<', 'data.csv') or die "无法打开文件: $!";
# 读取一行数据
my $line = <$fh>;
# 解析CSV数据
if ($csv->parse($line)) {
my @fields = $csv->fields();
# 打印每个字段的值
foreach my $field (@fields) {
print "$field\n";
}
} else {
warn "无法解析CSV行: " . $csv->error_input();
}
# 关闭文件
close($fh);

上掲のコードでは、まずText::CSVモジュールを使ってCSVオブジェクトを作成します。次に、open関数でCSVファイルを開いて、一行のデータを読み取ります。その後、parseメソッドを使用してCSV行をパースし、配列に格納します。最後に、配列を走査して、それぞれのフィールドの値を出力します。

コード内の data.csv を、実際の CSV ファイルへのパスに置き換える必要があることに注意してください。