Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
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 perusing the Monastery: (15)
As of 2014-10-21 14:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (105 votes), past polls