カードを画面に表示する

display は、カードを画面に表示するサブルーチンです。

手札を配列として、標準出力に出力しています。


#カードを画面に表示する
sub display($\@$\@$) {
  my ($flag, $PlayerHands, $PlayerPoint, $DealerHands, $DealerPoint) = @_;

  print "PlayerHands : ", join(', ', @$PlayerHands), " [$PlayerPoint]\n";

  if      ($flag == 0) {
    print "DealerHands : ", $$DealerHands[0], ", ?\n";
  } elsif ($flag == 1) {
    print "DealerHands : ", join(', ', @$DealerHands), " [$DealerPoint]\n";

    if      ($PlayerPoint == 0) {
      print "Player Busted.\n";
    } elsif ($DealerPoint == 0) {
      print "Dealyer Busted.\n";
    } elsif ($PlayerPoint >  $DealerPoint) {
      print "Player Won.\n";
    } elsif ($PlayerPoint <  $DealerPoint) {
      print "Dealer Won.\n";
    } elsif ($PlayerPoint == $DealerPoint) {
      print "Push.\n";
    }
  }
}