On Sun, Mar 9, 2008 at 6:13 AM, <[EMAIL PROTECTED]> wrote:
> ok, this is what I have tried but I got and internal system error msg like
> this "An internal system error has occurred which prevents us from
> responding to your request. "
> ------------- start of script--------------
> use Algorithm::Numerical::Shuffle;
> Shuffle @baccarat = (1,2,3,4,5,6,7,8,9,10,j,Q,K);
> print "$baccarat[print join(", ", @shuffled), "\n"9]\n";
> ----------end of script-------------------------
That's interesting...
Try running the sample code they got on the CPAN page [1]:
__CODE__
use Algorithm::Numerical::Shuffle qw /shuffle/;
my @shuffled = shuffle (1, 2, 3, 4, 5, 6, 7);
print join(", ", @shuffled), "\n";
__END__
[1] http://search.cpan.org/~abigail/Shuffle-1.4/Shuffle.pm
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
