<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;">I made a card shuffling program for a school project. It works!
I was very happy about that :)<br><br>However, I'm trying to figure out a way to convert my abbreviated Cards (located in @startingdeck) to actual words using a shortcut. I'm
trying to use "tr" to convert my letters: For example; H now becomes
Hearts, or K now is displayed as KING and so on. Here is my shuffle code. Can
someone help me with how I can approach this in my program. I'm trying
to use a while loop and&nbsp; "tr" to translate the Letters to actual words. I used the following loop thats high lighted in blue, and this is not doing what I want: <br>Thanks for everyones time.<br><pre><span style="color: blue;">while(@startingdeck){<br>  $list =~ tr/[A-Z]/qw(KING,QUEEN,JACK,ACE,SPADE,CLUB,HEARTS)/;<br>this doesn't work in my code and it just hangs. What am I doing wrong?<br></span></pre><br>


         
        
         
        <table border="0" cellpadding="0" cellspacing="0"><tbody><tr><td style="font-family: inherit; font-style: inherit; font-variant: inherit; font-weight: inherit; font-size: inherit; line-height: inherit; font-size-adjust: inherit; font-stretch: inherit;" valign="top"><style type="text/css">
<!-- _filtered #yiv15859988 {margin:0.79in;}
#yiv15859988 P {margin-bottom:0.08in;}
-->
</style>

<p style="margin-bottom: 0in;">#!/usr/bin/perl</p>

<p style="margin-bottom: 0in;"><br></p><p style="margin-bottom: 0in;">my @startingdeck = ("A H","2
H","3 H","4 H","5 H","6 H","7
H","8 H",</p>
<p style="margin-bottom: 0in;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "9 H","10
H","J H","Q H","K H",</p>
<p style="margin-bottom: 0in;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;                  "A D","2
D","3 D","4 D","5 D","6 D","7
D","8 D",</p>
<p style="margin-bottom: 0in;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;                  "9 D","10
D","J D","Q D","K D",</p>
<p style="margin-bottom: 0in;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;                  "A C","2
C","3 C","4 C","5 C","6 C","7
C","8 C",</p>
<p style="margin-bottom: 0in;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;                  "9 C","10
C","J C","Q C","K C",</p>
<p style="margin-bottom: 0in;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;                  "A S","2
S","3 S","4 S","5 S","6 S","7
S","8 S",</p>
<p style="margin-bottom: 0in;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;                  "9 S","10
S","J S","Q S","K S");</p>
<p style="margin-bottom: 0in;"><br>
</p>
<p style="margin-bottom: 0in;">my @right;</p>
<p style="margin-bottom: 0in;">my @left;</p>
<p style="margin-bottom: 0in;">SHUFFLE:</p>
<p style="margin-bottom: 0in;">        unshift @left, pop
@startingdeck for 1..26;</p>
<p style="margin-bottom: 0in;">@right = @startingdeck;</p>
<p style="margin-bottom: 0in;">@startingdeck = ();</p>
<p style="margin-bottom: 0in;">while(@left or @right){</p>
<p style="margin-bottom: 0in;">        if (rand() &lt; 0.5){</p>
<p style="margin-bottom: 0in;">             @left and push
@startingdeck, shift @left</p>
<p style="margin-bottom: 0in;">      }else{</p>
<p style="margin-bottom: 0in;">             @right and push
@startingdeck, shift @right</p>
<p style="margin-bottom: 0in;">   }</p>
<p style="margin-bottom: 0in;">};</p>
<p style="margin-bottom: 0in;"><br>
</p>
<p style="margin-bottom: 0in;">rand() &lt; 0.9 and goto SHUFFLE;</p>
<p style="margin-bottom: 0in;"><br>
</p>
<p style="margin-bottom: 0in;">print "the top five cards are
@startingdeck[0..4]\n";</p>
</td></tr></tbody></table></td></tr></table><br>