perl如何讀取csv文件中一行

小億
132
2023-11-24 13:07:31
欄目: 編程語言

在Perl中，可以使用模塊Text::CSV來讀取CSV文件中的一行。以下是一個(gè)示例代碼：

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)) {
    # 處理一行數(shù)據(jù)
    foreach my $field (@$row) {
        # 處理每個(gè)字段
        print "$field\t";
    }
    print "\n";
}
close($fh);

在上述代碼中，首先使用Text::CSV模塊創(chuàng)建了一個(gè)CSV對(duì)象。然后使用open函數(shù)打開CSV文件，將文件句柄賦值給變量$fh。然后使用getline方法從文件句柄中逐行讀取文件中的數(shù)據(jù)。對(duì)于每一行數(shù)據(jù)，可以使用foreach循環(huán)遍歷每個(gè)字段，并進(jìn)行相應(yīng)的處理。

需要注意的是，上述示例代碼假設(shè)CSV文件的分隔符為逗號(hào)。如果CSV文件使用其他分隔符，可以在創(chuàng)建CSV對(duì)象時(shí)使用sep_char參數(shù)指定分隔符。

0 踩