Hjælp

["S Hansen" <sslug@sslug>]

Jeg har problemer med et Perlscript som jeg har fundet på nettet. Jeg skal have til at køre på en Unix platform
men for et error når jeg prøver at kører det.

Jeg overføre det via ASCII og 777 permission

Er der nogen der kan hjælpe mig

#!/usr/local/bin/perl
###
# NAME:         lotto
#               Copyright (c) 1995 Liam Relihan. All rights reserved.
#               This program is free software; you can redistribute it 
#               and/or modify it under the same terms as Perl itself.
#
#               The author shall not be responsible for money lost.
#
# PURPOSE:      Yet Another Lottery Number Chooser.
# AUTHOR:       Liam Relihan
#               <sslug@sslug>
# SCCS:         %M%        %R%.%L% %D%
# DATE:         22-Nov-1995
# PARAMETERS:   lotto [<num_lines>]
# CALLED BY:
# MODIFIED:     
# BUGS:         Doesn't always choose winning numbers.
#
##

# customise these 2 lines for your lottery
$maxnum=50;   # how many balls in the drum, etc.
$numnum=6;   # number of balls in a line.

$numpolls=$ARGV[0]||1;

srand(time^$$);

for (1..$numpolls) {
    @chosen=();
    while ($#chosen < $numnum) {
 $newnum=int(rand($maxnum)+1);
 push(@chosen,$newnum) if (!grep(/$newnum/,@chosen)) ;
    }
    print join(",",sort ({$a<=>$b} @chosen)),"\n";
}    
exit 0;

PS ! Jeg har også vedhæftet det som fil

Mvh. Henning Hansen