Select Code to Download

Select or download this

1 Line_1_3 Line_3_3 Line_4_3 
2 Line_2_3 (empty)  Line_5_3
...
.    .        .         .
.    .        .         .
n Line_n_3 Line_n_3 Line_n_3[n]

Select or download this

Line_1:Line_1_1:Line_1_2:Line_1_3:Line_1_4
Line_2:Line_2_1:Line_2_2:Line_2_3:Line_2_4

Select or download this

Line_3:Line_3_1:Line_3_2:Line_3_3:Line_3_4

Select or download this

Line_4:Line_4_1:Line_4_2:Line_4_3:Line_4_4
Line_5:Line_5_1:Line_5_2:Line_6_3:Line_5_4
Line_6:Line_6_1:Line_6_2:Line_6_3:Line_6_4
Line_7:Line_7_1:Line_7_2:Line_7_3:Line_7_4

Select or download this

#!/usr/bin/perl

...

my $a_table = array_sub(@ARGV);
print $a_table;

Select or download this

$VAR1 = [
          [
...
Line_2_3          Line_5_3
                  Line_6_3
                  Line_7_3

Select or download this

#!/usr/bin/perl

...

my $h_table = hash_sub(@ARGV);
print $h_table;

Select or download this

$VAR1 = {
          'sample.txt' => [
...
Line_2_3          Line_5_3
                  Line_6_3
                  Line_7_3