[Oc-pm] looking for a bit of of help using "tr" & while loop

[Raul Ruiz Jr.]

I made a card shuffling program for a school project. It works!
I was very happy about that :)

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  "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: 
Thanks for everyones time.
while(@startingdeck){
  $list =~ tr/[A-Z]/qw(KING,QUEEN,JACK,ACE,SPADE,CLUB,HEARTS)/;
this doesn't work in my code and it just hangs. What am I doing wrong?




	 
	
	 
	



#!/usr/bin/perl


my @startingdeck = ("A H","2
H","3 H","4 H","5 H","6 H","7
H","8 H",
                               "9 H","10
H","J H","Q H","K H",
                                                "A D","2
D","3 D","4 D","5 D","6 D","7
D","8 D",
                                                "9 D","10
D","J D","Q D","K D",
                                                "A C","2
C","3 C","4 C","5 C","6 C","7
C","8 C",
                                                "9 C","10
C","J C","Q C","K C",
                                                "A S","2
S","3 S","4 S","5 S","6 S","7
S","8 S",
                                                "9 S","10
S","J S","Q S","K S");



my @right;
my @left;
SHUFFLE:
        unshift @left, pop
@startingdeck for 1..26;
@right = @startingdeck;
@startingdeck = ();
while(@left or @right){
        if (rand() < 0.5){
             @left and push
@startingdeck, shift @left
      }else{
             @right and push
@startingdeck, shift @right
   }
};



rand() < 0.9 and goto SHUFFLE;



print "the top five cards are
@startingdeck[0..4]\n";



      
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/oc-pm/attachments/20080825/cbdfd86d/attachment.html>