Select Code to Download

#!/usr/bin/perl
use strict;
...
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.

 
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", ...

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