#!/usr/bin/perl use strict; use warnings; use Data::Table; my $t = Data::Table::fromCSV("ravi.csv"); # Read a csv file into + a table object print $t->csv; # Display a 'portrait' HTML TABLE + on web.
I am trying some programs on csv files. By searching I saw this "Data::Table". I copied the example in the page given. but its showing an error.
Later I came to know that it need column names. Without column names how can I use this. Because the csv file I am using is auto-generated and does not contains any names in the top of the file. I have permissions only to read the files.
So as per module page
table Data::Table::fromCSV ($name, $includeHeader = 1, $header = ["col +1", ... ]) create a table from a CSV file. return a table object. $name: the CSV +file name. $includeHeader: 0 or 1 to ignore/interpret the first line +in the file as column names, If it is set to 0, the array in $header +is used. If $header is not supplied, the default column names are "co +l1", "col2", ...
Still its not working#!/usr/bin/perl #!/usr/bin/perl # use strict; use warnings; use Data::Table; my $t = Data::Table::fromCSV("/root/prac/Telenor_CDR/SMSCDR_POSTPAID_1 +51013000000_10.84.0.29_AS.log",0); #print $t->csv; #t2 = $t->group(["Department","Sex"],["Name", "Salary"], [sub {scalar +@_}, \&average], ["Nof Employee", "Average Salary"]); my $t2 = $t->group(["col1","col9"]); print $t2->csv;
Invalid column col9Unknown column col9 at /root/perl5/lib/perl5/Data/T +able.pm line 1794. Data::Table::group('Data::Table=HASH(0x15e84c0)', 'ARRAY(0xff0 +300)') called at test_table.pl line 13
In reply to Data::Table showing error by ravi45722
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |