阅读量:3
在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
参数指定分隔符。