在Perl中，可以使用Text::CSV模塊來讀取CSV文件。下面是一個示例代碼，演示了如何讀取CSV文件中的一行：
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文件路徑。
