admin 管理员组

文章数量: 887021

Perl

chomp; 具体意义可自行网上搜索，这里只记录开发过程中遇到的坑。

使用chomp;之后，最后一列若是空值，则长度为减1。

#cat -A test.csv 
1^Ia^Ib^Ic^I8$
ui^Ifaf^Iio^I^Ij$
90^Ifaf^Ifaf^I$

执行cat -A test.csv后如上所示，^I表示"\t",$表示换行"\n"。

1. with chomp;

#!/usr/bin/perlopen(DATA, "<test.csv") or die "无法打开数据";while(<DATA>) {chomp;@lineArray = split("\t", $_);$lineArray = @lineArray;print("--$lineArray--\n");
}

运行结果：

--5--
--5--
--3--

 2. without chomp;

#!/usr/bin/perlopen(DATA, "<test.csv") or die "无法打开数据";while(<DATA>) {@lineArray = split("\t", $_);$lineArray = @lineArray;print("--$lineArray--\n");
}

 运行结果：

--5--
--5--
--4--

最后一行隔开之后，最后一个值为空。因此，chomp自动将其删除，导致长度减1.

本文标签： Perl

版权声明：本文标题：Perl 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.freenas.com.cn/free/1700356039h411180.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。