Quote

Code: (dl )

chomp = $Ziel;

chomp $Ziel

Quote

Code: (dl )

1
2

$Zahl geteilt durch alle Zahlen in @prime;
        if $Zahl % jeweil die Zahlen aus @prime (größer als 0) {

1
2
3
4
5
6
7

my $is_prime = 1;
for my $p (@prime) {
    if ($Zahl % $p == ){
        $is_prime = 0;
        last;
    }
}