#!/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.

##</code><code>##

 
table Data::Table::fromCSV ($name, $includeHeader = 1, $header = ["col1", ... ])
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 "col1", "col2", ...

##</code><code>##

 #!/usr/bin/perl
#!/usr/bin/perl
#
use strict;
use warnings;

use Data::Table;

my $t = Data::Table::fromCSV("/root/prac/Telenor_CDR/SMSCDR_POSTPAID_151013000000_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;


##</code><code>##

Invalid column col9Unknown column col9 at /root/perl5/lib/perl5/Data/Table.pm line 1794.
        Data::Table::group('Data::Table=HASH(0x15e84c0)', 'ARRAY(0xff0300)') called at test_table.pl line 13