equal
deleted
inserted
replaced
7 use warnings; |
7 use warnings; |
8 use File::Basename; |
8 use File::Basename; |
9 |
9 |
10 my $ME = basename $0; |
10 my $ME = basename $0; |
11 |
11 |
12 die "$ME: Sorry, need the number\n" |
12 die "Usage: $ME {number}\n" |
13 if not @ARGV; |
13 if not @ARGV; |
14 |
14 |
15 my $number = $ARGV[0]; |
15 my $number = $ARGV[0]; |
|
16 |
|
17 die "$ME: Sorry, number >= 2 expected!\n" |
|
18 if $number < 2; |
16 |
19 |
17 #1. find all divisors of $number |
20 #1. find all divisors of $number |
18 my @divisors = findDivisors($number); |
21 my @divisors = findDivisors($number); |
19 print "Die Teiler von $number sind: @divisors\n"; |
22 print "Die Teiler von $number sind: @divisors\n"; |
20 |
23 |