P005 SLU®BY POČÍTAČOVÝCH SÍTÍ

Funkce

Sečteme hodnoty prvků pole

sub sum {
        my $total;
        for (@_) {
                $total += $_;
                }
        $total;
        }
print sum(3, 7, 8), "\n";

Volání odkazem

@a = (2, 4, 6);
sub inc {
        for (@_) {
                $_++;
                }
        }
inc(@a);
print join(",", @a), "\n";

Lokální kopie, volání hodnotou

sub inc {
        my @data = @_;
        for (@data) {
                $_++;
                }
        @data;
        }
@b = inc (@a);
print join(",", @b), "\n";

Jan Pazdziora adelton@informatics.muni.cz