在Perl中，可以使用模塊Text::CSV來讀取CSV文件中的一行。以下是一個示例代碼：
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方法從文件句柄中逐行讀取文件中的數據。對于每一行數據，可以使用foreach循環遍歷每個字段，并進行相應的處理。
需要注意的是，上述示例代碼假設CSV文件的分隔符為逗號。如果CSV文件使用其他分隔符，可以在創建CSV對象時使用sep_char參數指定分隔符。
