メインルーチン

メインルーチン

以下は、「ドロー・ポーカーの Perl プログラム」のメインルーチンです。

必要なサブルーチンを呼び出して、全体を制御しています。


#役の名称
@hands = ('No Pair',
          'One Pair',
          'Two Pair',
          'Three of a Kind',
          'Straight',
          'Flush',
          'Full House',
          'Four of a Kind',
          'Straight Flush',
          'Royal Straight Flush');

#カードを混ぜる
&shuffle;

#カードを配る
for (0 .. 4) {
  push(@player, shift(@stack));
}

#カードを画面に表示する
&display;

#カードを交換する
&change;

#カードを画面に表示する
&display;

#役を確認する
printf "%s\n", $hands[&check];

トランプ・ポーカー > ドロー・ポーカーの Perl プログラム > メインルーチン