display は、カードを画面に表示するサブルーチンです。
手札を配列として、標準出力に出力しています。
#カードを画面に表示する
sub display {
local($flag) = @_;
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) {
printf "Player Busted.\n";
} elsif ($DealerPoint == 0) {
printf "Dealyer Busted.\n";
} elsif ($PlayerPoint > $DealerPoint) {
printf "Player Won.\n";
} elsif ($PlayerPoint < $DealerPoint) {
printf "Dealer Won.\n";
} elsif ($PlayerPoint == $DealerPoint) {
printf "Push.\n";
}
}
}
