在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文件路径。
