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
|
MAIN
SEARCH
WHO'S 
LOG 
