( turul16 | 2021. 12. 02., cs – 15:14 )

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])

~