
leszczyn07
New User
Feb 6, 2008, 2:15 AM
Post #1 of 4
(788 views)
|
Array of Arrays in subroutin
|
Can't Post
|
|
Why my "sub druk" print nothig. I've spend a fiew houers on this. #!/usr/bin/perl open IN, "AL"; $i = 0; foreach $line (<IN>) { chomp $line; $a[$i++] = [split /:/, $line]; } druk (\@a); sub druk { my $p = @_; for my $i (0 .. 2) { for $j (0 .. 3) { print "$p->[$i][$j] "; } print "\n"; } } end $cat AL 0:1:2:3 4:5:6:7 8:9:0:1
|