# HG changeset patch # User Heiko Schlittermann (JUMPER) # Date 1319918832 -7200 # Node ID 51950b0c040d1e6d4905b8d7e5fe0532f8b70764 # Parent 6a11b95c49040ff2b1feb0c9ea2edfa17166a4a3 do more checking of input diff -r 6a11b95c4904 -r 51950b0c040d prime --- a/prime Sat Oct 29 21:59:16 2011 +0200 +++ b/prime Sat Oct 29 22:07:12 2011 +0200 @@ -9,11 +9,14 @@ my $ME = basename $0; -die "$ME: Sorry, need the number\n" +die "Usage: $ME {number}\n" if not @ARGV; my $number = $ARGV[0]; +die "$ME: Sorry, number >= 2 expected!\n" + if $number < 2; + #1. find all divisors of $number my @divisors = findDivisors($number); print "Die Teiler von $number sind: @divisors\n";