on this code I'm trying to call the subroutine twice to print out my desire deck of cards. I'm able to call it once but once I call it a second time, I don't get the desire output. any advice will be thankful. Sorry for not giving full details, I apologize for this. The objective is to shuffle the deck of cards, just once, with just using pop,shift and push, and print out the top 6 cards. I,m able to accomplish that. Now I want to practice on my subroutine calling. First I want call on the function, after the first hand is dealt, I want to call the shuffling function again before dealing another, a different hand.

#!/usr/bin/perl -w
use strict;
use diagnostics;


@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");
@random_card = @startingdeck;

    @starting_deck = deck(@starting_deck);
    @new_deck = deck(@starting_deck);
    print "@new_deck\n";


sub deck(){
    my $card = @_;
    my $x = 0;

    foreach $card(@random_card){
    $element1 = pop(@random_card), shift(@random_card), pop(@random_ca
+rd),
                shift(@random_card), pop(@random_card), shift(@random_
+card),
                    pop(@random_card);
    $element2 = shift(@random_card), pop(@random_card), shift(@random_
+card),
                pop(@random_card), shift(@random_card), pop(@random_ca
+rd), shift(@random_card),
                pop(@random_card), shift(@random_card), pop(@random_ca
+rd);
    push(@starting_deck, $element1, $element2);
    }
    while($x <= 4){
    foreach(@starting_deck){
        $_ =~ s/C/Clubs/,s/S/Spades/,
              s/H/Hearts/,s/D/Diamonds/;
        $x++;
    }
    return @starting_deck;
    }
}

[download]

In reply to Perl Subroutine by craziestfire73

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.