in reply to Data::Table showing error

From your code: 

print $t->csv;    # Display a 'portrait' HTML TABLE on web.

[download]

Question -- do you want to output HTML or CSV? If you wish to output an HTML table as the comment suggests, you might be able to accomplish this with the latest version (v1.04) of my Spreadsheet::HTML module: 

use strict;
use warnings;
use Spreadsheet::HTML qw( portrait );

print portrait( file => 'ravi.csv', sep => '|', table => {border=>1} )
+;

[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Replies are listed 'Best First'.
Re^2: Data::Table showing error
by ravi45722 (Pilgrim) on Oct 28, 2015 at 04:04 UTC

    Sorry, I changed the code but forget to change the comment. My requirement is to group some fields & count how many events occurred.

     Tue Oct 13 00:20:01 2015|189333794|32665|959799899574|Tue Oct 13 00:19:57 2015|Tue Oct 13 00:20:01 2015|CMT|Delivered|none|Submit|0|SMSC_no_error|SMPP|GSM|ASCII|105|92|no||no|no||None|No|DestPrepaid|no|no|0|0|0|0|414061102110510||959790000004|0|0||0|no|no|default_billing|-1|0|no|no|0|0|0|0|1|1|1|1|959790000024|32665|smsgw|78655|Wed Oct 14 00:19:57 2015|SR|||CO|011816714446721970009||Default|0|370870121||0|0||0|||||||||Oct-13-2015  00:19:57.405709|1|1||||||||||0|

    This is example of my input data. In this I want to group 10th (Submit), 13th (GSM), 14th (SMPP) fields & count how many events occurred. In the example the 13th field is SMPP. So don't count this event. Whenever all I fields met the condition then I want to consider it as a event. This is my total requirement.

[reply]
[d/l]

In Section Seekers of Perl Wisdom