如何在Perl中检查带有标题的CSV文件是否为空

Question

我有一个包含内容的csv文件xyz.csv

name,age,place,phone
xyz,12,ohio,7372829
sed,23,hrh,9890908

我需要解析csv文件并检查它是否为空文件，即它没有提供的标头的值。

空文件xyz.csv仅包含标题（标题no可能会减少或增加），例如减少：

name,age,place,phone

增加：

name,age,place,mob,phno,ht

我如何在下面的代码中检查空文件并打印是否为空？

我已经开发了以下脚本来解析csv

open(my $data, '<', $file_c) or die "Could not open '$file_c' $!\n";

while (my $line = <$data>) 
{
    next if ($. == 1);
    chomp $line; 
    my @fields = split "," , $line; 

    print"$fields[0] fields[1]";
 }

Answer 1

如果您是我，我将研究CSV处理CPAN模块之一，例如Text::CSV ， Tie::CSV_File或DBD::CSV 。

检查文件是否为空是一种简单的计算文件中已分析的行数的情况。 使用DBI和DBD::CSV您可以使用SELECT COUNT(*) FROM table_name SQL语句。

以下链接提供了有关使用perl解析CSV文件的快速教程： http : //perlmeme.org/tutorials/parsing_csv.html

Answer 2

您可以使用范围运算符搜索不是第一行的任何行。 这应该非常有效：

while (<$data>) 
{
  unless (1..1) { print "not null\n"; exit 0; }
}
print "null\n";
exit 1;

或者，您可以一一摘除行-如果定义了第二行，则它不为空：

<$data>;
print (defined <$data> ? "not null" : "null");

Answer 3

您可以查询如何检查行数以及确定行头是否存在，然后第一行始终是行头。

因此，如果第2行不存在或第2行的长度为0，则其为空文件。

Answer 4

这应该起作用。从您的shell提示中检查wc -l < FNAME是否仅返回cnt行。

print "empty" if chomp(my $dummy = `wc -l < FNAME`) == 1;

但是，它可能效率不高。