Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
    push @full_data, \@fields;
}
print Dumper \@full_data;
  2. or download this
    $ perl table.pl
$VAR1 = [
...
            '01-Sep-2013'
          ]
        ];
  3. or download this
    for my $line (@file_content) {
    my @fields = split /\s+/, $line;
    push @full_data, \@fields;
}
  4. or download this
    push @full_data, [split] for @file_content;