#!/usr/bin/perl -w
use strict;
my (%def, %value, @deck, @playerhand, @dealerhand);

#####
# define the symbols for each card and each cards value
#####

%def = (
    "h" => "hearts",
    "c" => "clubs",
    "d" => "diamonds",
    "s" => "spades",
    "j" => "jack",
    "q" => "queen",
    "k" => "king",
    "a" => "ace",    # ace with a value of 11
    "1" => "ace"     # ace with a value of 1
);

foreach ( 1 .. 10, qw/ j q k a / ) {
    if ( !/[j, q, k, a]/ ) {
        $value{$_} = $_;
    } elsif ( /a/ ) {
        $value{$_} = 11;
    } else {
        $value{$_} = 10;
    }
}

#####
# create the deck, shuffle it, and then deal the first hand
#####

createdeck( \@deck );
shuffledeck( \@deck );
for (0 .. 1) {
    push @playerhand, shift @deck;
    push @dealerhand, shift @deck;
}

dealtwo( \%def, \@deck, \@playerhand, \@dealerhand, \%value );

#####
# the main dealing routine
#####

sub dealtwo {
    my ($def, $deck, $playerhand, $dealerhand, $value) = @_;
    my ($hos, $score, $card);
    print "You were dealt:\n";
    foreach ( @$playerhand ) {
        /^(\w) (\w+)$/i;
        if ( exists $$def{$2} ) {    # since not all possible cards ar
+e in %def, if it isn't print it straight
            $card = $$def{$2};
        } else {
            $card = $2
        }
        print "    " . $card . " of " . $$def{$1} . "\n";
    }
    $score = score( $playerhand, 0, $value );
    print "Your are showing: " . $score . "\n\n";
    print "\nThe dealer was dealt:\n";
    $$dealerhand[0] =~ /^(\w) (\w+)$/i; # only show one card of the de
+alers hand until the player is done
    if ( exists $$def{$2} ) {
        $card = $$def{$2};
    } else {
        $card = $2
    }
    print "    " . $card . " of " . $$def{$1} . "\n";
    $score = score( $dealerhand, 1, $value );
    print "He is showing: " . $score . "\n\n";    
    print "Hit or Stay?";
    $_=<>;
    chomp;
    if (/h/i) {
        push @$playerhand, shift @$deck;
        dealtwo($def, $deck, $playerhand, $dealerhand, $value); # anot
+her "hit or stay" for player
    } else {
        end($def, $deck, $playerhand, $dealerhand, $value); # call the
+ dealer logic
    }
}

#####
# shuffle deck (fisher yates)
#####

sub shuffledeck {
    my ($deck) = @_;
    my ($i, $j);
    for ($i = @$deck; --$i; ) {
        $j = int rand ($i+1);
        next if $i == $j;
        @$deck[$i,$j] = @$deck[$j,$i];
    }
}

#####
# create deck
#####

sub createdeck {
    my ($deck) = @_;
    my ($i, $j);
    foreach $i ( qw/ h d c s / ) {
        foreach $j ( 2 .. 10, qw/ j q k a / ) {
            push @$deck, "$i $j";
        }
    }
}

#####
# calculate the score, and do some win/lose logic
#####

sub score {   
    my ($hand, $dop, $value) = @_;      # $dop says wether to return 1
+ or all cards, 0 for player
    my ($score, $ace, $i);              # 1 for dealer in sub dealtwo 
+and 2 for dealer in sub end
    $ace = 0;    # weher
    foreach (@$hand) {
        /^(\w) (\w+)$/i;
        $ace=1 if $2 eq "a";
        $score += $$value{$2};
    }
    if ($score > 21 and $ace == 1) {          #lines in question
        for ($i = @$hand; --$i;) {                    #lines in questi
+on
            @$hand[$i] =~ s/^(\w) a$/$1 1/i;  #lines in question
        }
        score( $hand, $dop, $value );
    }
    if ($score > 21 and $dop == 0 and $dop != 2) {
        lose($score);
        exit();
    }
    if ($score == 21 and $dop == 0 and $dop != 2 ) {
        win($score);
        exit();
    }
    if ($score < 21 and $#$hand == 5 ) {
        win2($score);
        exit();
    }
    @$hand[0] =~ /^(\w) (\w+)$/i;
    if ( $dop == 1 ) {
        return $$value{$2};
    } else { 
        return $score;
    }
}

#####
# player loses
#####


sub lose {
    my ($score) = @_;
    print "Your are showing: " . $score . "\n";
    print "You lose!"
}

#####
# player wins
#####

sub win {
    my ($score) = @_;
    print "Your are showing: " . $score . "\n";
    print "You win!"
}

#####
# player wins by having 5 cards under 21
#####

sub win2 {
    my ($score) = @_;
    print "Your are showing: " . $score . " and have 5 cards!\n";
    print "You win!"
}

#####
# dealer subroutine
#####

sub end {
    my ($def, $deck, $playerhand, $dealerhand, $value) = @_;
    my ($score, $card);
    $score = score( $dealerhand, 2, $value );
    print "\nThe dealer was dealt:\n";
    foreach ( @$dealerhand ) {
        /^(\w) (\w+)$/i;
        if ( exists $$def{$2} ) {
            $card = $$def{$2};
        } else {
            $card = $2
        }
        print "    " . $card . " of " . $$def{$1} . "\n";
    }
    print "He is showing: " . $score . "\n\n"; 
    while ( $score < 17 ) {                   #if the dealers score is
+ less then 17 then hit
        print "The dealer hits!\n";
        push @$dealerhand, shift @$deck;
        $score = score( $dealerhand, 2, $value );
        print "\nThe dealer was dealt:\n";
        foreach ( @$dealerhand ) {
            /^(\w) (\w+)$/i;
            if ( exists $$def{$2} ) {
                $card = $$def{$2};
            } else {
                $card = $2
            }
            print "    " . $card . " of " . $$def{$1} . "\n";
        }
        print "He is showing: " . $score . "\n\n"; 
    }
    print "The deal stays!\n\n";
    if ($score > score( $playerhand, 2, $value ) and $score < 22) {
        lose( score( $playerhand, 2, $value ) );
    } elsif ($score < score( $playerhand, 2, $value ) ) {
        win( score( $playerhand, 2, $value  ) );
    } elsif ($score == score( $playerhand, 2, $value ) ) {
        print "You are showing " . score( $playerhand, 2, $value  ) . 
+"\n";
        print "You push!";
        exit();
    } elsif ($score > 21) {
        print "You win,the dealer is over 21\n";
    }
}
[download]