Perl 读取 csv/excel 格式文件

csv格式的数据，其实就是一串由特定分隔符（通常为 “ ,或; ”）分割的的文本数据，对于一些简单的excel数据，我们可以直接转换成csv来进行处理，从而避免使用excel相关的模块，降低数据处理的难度和复杂度。

1. 数据格式

csv数据.png

2. perl代码

• 注意csv 文件采用那种分隔符；
• 注意csv和excel文件结尾会有很多的空行，不要导入空数据。

vim read_csv.pl

#!/usr/bin/perl                                                                       

use warnings;
use strict;

my $file = "read_csv.csv";
open my $fl, "< $file" or die "can not open the file:$file\n$!";

while (<$fl>) {
    next if /^Name/;
    chomp;
    #my ($name,$id,$email) = split ",", $_;
    my ($name,$id,$email) = split ",";    # 省略默认变量$_
    last unless $name;
    print "name:$name\nid:$id\nemail:$email\n\n\n";
}

close $fl;

3. 结果展示

perl 读取csv数据结果.png