sub foo{
my ($p1, $p2) = @_;
my $elso = join(',', @$p1);
my $masodik = join(',', @$p2);
print "Első: [$elso]";
print chr(10);
print "Masodik: [$masodik]";
print chr(10);
}
foo([1,2,3], [10,20,30])
Mi a baj a '\n' -el ? Miert nem kell blackslash ?
sub foo{
my ($p1, $p2) = @_;
print "Első: @$p1\n";
print "Masodik: @$p2\n";
}
foo([1,2,3], [10,20,30])
~