Subroutinen

use strict; use warnings;

sub gruss {
    my ($name, $anrede) = @_;
    $anrede //= "Hallo";
    return "$anrede, $name!";
}

sub summe {
    my $s = 0;
    $s += $_ for @_;          # beliebig viele Argumente
    return $s;
}

sub minmax {
    my @sortiert = sort { $a <=> $b } @_;
    return ($sortiert[0], $sortiert[-1]);       # mehrere Werte
}

sub optionen {
    my (%opt) = (farbe => "blau", groesse => 10, @_);   # benannte Argumente mit Standardwerten
    return join(", ", map { "$_=$opt{$_}" } sort keys %opt);
}

print gruss("Mia"), "\n";
print gruss("Tom", "Hi"), "\n";
print summe(1, 2, 3, 4), "\n";
my ($klein, $gross) = minmax(5, 2, 9, 1);
print "$klein $gross\n";
print optionen(groesse => 20, rahmen => "ja"), "\n";
print "Argumente: ", scalar(@{[ 1, 2, 3 ]}), "\n";

use v5.36;                       # aktiviert strict, warnings, say und Signaturen
sub addiere($x, $y = 10) { return $x + $y }
say addiere(1);
say addiere(1, 2);
sub ersten_und_rest($erster, @rest) { return "$erster | @rest" }
say ersten_und_rest(qw(a b c));
sub mit_hash($name, %opt) { "$name: " . join(",", map {"$_=$opt{$_}"} sort keys %opt) }
say mit_hash("x", b => 2, a => 1);

use v5.36;
sub kontext {
    return wantarray ? "Liste" : defined(wantarray) ? "Skalar" : "void";
}
my @l = kontext();
my $s = kontext();
kontext();
say "$l[0] $s";

use v5.36;
my $quadrat = sub ($x) { $x * $x };          # anonyme Funktion
say $quadrat->(7);

sub zaehler_erzeugen($start = 0) {
    my $n = $start;
    return {
        plus  => sub { ++$n },
        minus => sub { --$n },
        wert  => sub { $n },
    };
}
my $z = zaehler_erzeugen(10);
$z->{plus}->() for 1..3;
$z->{minus}->();
say $z->{wert}->();

sub wende_an($f, @liste) { map { $f->($_) } @liste }
say join ",", wende_an(sub ($x) { $x * 10 }, 1, 2, 3);
my %dispatch = (hallo => sub { "Hallo!" }, tschuess => sub { "Tschüss!" });
say $dispatch{hallo}->();
my $ref = \&wende_an;
say ref($ref);

use v5.36;
sub fakultaet($n) { $n <= 1 ? 1 : $n * fakultaet($n - 1) }
sub fib($n) { $n < 2 ? $n : fib($n - 1) + fib($n - 2) }
say fakultaet(15);
say join " ", map { fib($_) } 0..12;

our $global = "global";           # Paketvariable
my $lexikalisch = "außen";
sub test {
    my $lexikalisch = "innen";    # verdeckt die äußere
    return "$lexikalisch $global";
}
say test();
say $lexikalisch;
{
    local $global = "lokal überschrieben";
    say test();
}
say test();