Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re^2: How check whether csv file with header is empty file or not in perl

by Tux (Monsignor)
on Sep 06, 2012 at 14:03 UTC ( #992096=note: print w/ replies, xml ) Need Help??


in reply to Re: How check whether csv file with header is empty file or not in perl
in thread How check whether csv file with header is empty file or not in perl

Let me edit your code, which is very unsafe once the CSV gets a little bit more complicated ...

use Text::CSV_XS; my $csv = Text::CSV_XS->new ({ binary => 1, auto_diag => 1 }); open my $data, "<", $file_c or die "$file_c: $!\n"; my $rows = 0; while (my $row = $csv->getline ($data)) { $rows++; } print "Total $rows rows (including header line)\n";

Though I'd probably go to an even simpler solution using DBD::CSV:

$ ll xx.csv 12862169 -rw-rw-rw- 1 merijn users 415423 Sep 6 16:00 xx.csv $ perl -MDBI -wE'say DBI->connect("dbi:CSV:f_ext=.csv")->selectrow_arr +ayref("select count(*) from xx")->[0]," rows in fs"' 8739 rows in fs

Enjoy, Have FUN! H.Merijn


Comment on Re^2: How check whether csv file with header is empty file or not in perl
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://992096]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (7)
As of 2014-12-21 04:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (103 votes), past polls