Select Code to Download

use Games::Cards::Poker;

...
                                ScoreHand(@{$hands[$players]}));
  }

#!/usr/bin/perl
@userinput = <STDIN>;
#What i will type e.g.: As,Qc,Td,6c,3h
$score = ScoreHand(@userinput);

sub ScoreHand { # returns the score of the passed in @hand or ShortHan
+d
  my @hand = @_; return(7462) unless(@hand == 1 || @hand == 5); my $sh
+rt;
...
  if(  $slow      ) { return(SlowScoreHand($shrt)); }
  else              { return(        $zdnh{$shrt}); }
}