in reply to Re^2: Data::Table showing error
in thread Data::Table showing error

The default separator for the fromCSV command is a comma, i.e. comma-separated values. Your file appears to contain pipe-separated values, so you need to define the delimiter. The Data::Table documentation for the fromCSV command states, 
if the delimiter or the qualifier is a special symbol in regular expre
+ssion, you must escape it by '\'. For example, in order to use pipe s
+ymbol as the delimiter, you must specify the delimiter as '\|'.

[download]
Try this with your file, 
my $t = Data::Table::fromCSV("ravi.csv", 0, undef, { delimiter => '\|'
+ });

[download]

Replies are listed 'Best First'.
Re^4: Data::Table showing error
by ravi45722 (Pilgrim) on Oct 27, 2015 at 06:51 UTC 
     #!/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, undef, { delimiter => '\|'});
my $t2 = $t->group(["col1","col9"]);
print $t2->csv;

    [download]

    Errors

     Can't use string ("94") as an ARRAY ref while "strict refs" in use at /root/perl5/lib/perl5/Data/Table.pm line 1308, <$SRC> line 1.
[reply]
[d/l]
[select]
      I think you may have stumbled upon a bug in Data::Table. It does not appear to be handling the trailing blank columns properly. If I use your example data, I get the same error as you. 
      Tue Oct 13 00:10:00 2015|33594|959796245242|08211019|Tue Oct 13 00:10:
+00 2015|Tue Oct 13 00:10:00 2015|CMT|Undelivered|none|Submit|0|SMSC_P
+R_LC_SMSC_InvalidDestAddress|GSM|INVALID|ASCII|92|92|no||no|no||None|
+No|NO|no|no|0|0|0|0||959790000028||8|0||0|no|no|default_billing|-1|0|
+no|no|1|1|1|1|0|1|0|0|||||Tue Oct 13 06:10:00 2015|SR|||IV|0118096144
+46716000046|||0|0||0|0||0||||08211019||||||||||||||||||

      [download]
      However, if I add a value to the end of the line (to give a non-empty column), then it works. For example, if I add aaa as the last column, 
      Tue Oct 13 00:10:00 2015|33594|959796245242|08211019|Tue Oct 13 00:10:
+00 2015|Tue Oct 13 00:10:00 2015|CMT|Undelivered|none|Submit|0|SMSC_P
+R_LC_SMSC_InvalidDestAddress|GSM|INVALID|ASCII|92|92|no||no|no||None|
+No|NO|no|no|0|0|0|0||959790000028||8|0||0|no|no|default_billing|-1|0|
+no|no|1|1|1|1|0|1|0|0|||||Tue Oct 13 06:10:00 2015|SR|||IV|0118096144
+46716000046|||0|0||0|0||0||||08211019||||||||||||||||||aaa

      [download]
      then the code runs without errors. I will try to take a closer look at this, and perhaps submit a bug report if I can't find a work around.
[reply]
[d/l]
[select]

        Thanks. Is "Text::CSV" works like an alternative for me???

[reply]

In Section Seekers of Perl Wisdom