Re: Perl subroutine update

Please next time post a new node or even a new question thread instead of editing your old node. It makes all the posts in this thread look silly since they refer to code that isn't there. Also I had problems finding your new script as there was no new node in your node list.

About your code: The subroutine looks much better now, but you forgot to correct the array problem I was talking about in Re: Perl subroutine update beginning with 'Read the section "Arrays"'. Remember, $element1 is a single value, @element1 would be an array of values. Since you pop/shift more than one value of the @cards and want to store them, you need an array.

Also, when I said, change all references of @random_card or @starting_deck to @cards in this subroutine, I really meant "in this subroutine only". You don't need to change any @random_card or @starting_deck names outside the subroutine, those are normally different variables. They may have the same name, but they are different and usually you want to use different names to make it obvious that they are different. By changing them you also introduced new bugs. But ok, we can fix it, step by step

Now, when you debug a script and you get error messages, things get really easy in a way. Usually error messages tell you all you need to know if you just make the effort to read them carefully, try to make sense of them and then correct them until the error message vanishes. Since some errors can lead to further error messages later in the script, it is best to always correct the first error message first.

So execute your script and you will see a warning that you use @starting_deck[$x] instead of $starting_deck[$x]. If you read the section about arrays, you should know that in perl you access a whole array as @array, but a single element of the array as $array[1]. What you did was use an array slice: @array[1,2,3], also legal, but perl is warning you that it makes no sense to use in this way and you probably meant $starting_deck[$x]. Change this and the warning will go away.

Now the error message "Global symbol "@cards" requires explicit package name at ./t7.pl line 14" is first. Look at line 14. There is a variable @cards you haven't introduced/declared yet, so add 'my' before it.

Now that error message should be gone. But a new warning comes up if you restart the script that says ""my" variable @cards masks earlier declaration in same scope at ./t7.pl line 17". Check out line 17. Read the error message and try to make sense out of it. It means that you declare @cards a second time. So remove the 'my' before the second '@cards'.

When you restart the script the next first error message is "Global symbol "@starting_deck" requires explicit package name at ./t7.pl line 21". If you look closely you will see that before you called the variable "@startingdeck" and not "@starting_deck". So correct that.

Next error message is "Global symbol "$card" requires explicit package name at ./t7.pl line 33". Check out line 33. You have a variable card that you didn't declare. So put 'my' in front of it and the error message vanishes

Next message is "Global symbol "@card" requires explicit package name at ./t7.pl line 36". Check out line 36. Again a typing error, you used @card instead of @cards. Change that and your script should finally be running again

If you are at that point, post your code again in a new node and we can talk about how to find the last two bugs in your script

Comment on Re: Perl subroutine update Select or Download Code

Replies are listed 'Best First'.
Re^2: Perl subroutine update by craziestfire73 (Initiate) on Apr 05, 2011 at 13:09 UTC
hello Jethro, thanks for the time to assist me. I kind of experimented a little bit with the code a different way. if you run it without using strict or diagnostics, I get a close to an answer to what I need. Except that then new set of cards, has to be different than the new one and I'm having problems with my matching the one that turns for example H into Hearts. ############ Test.pl########### #!/usr/bin/perl my @startingdeck = ("A H","2 H","3 H","4 H","5 H","6 H","7H","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 @random_card = @startingdeck; my $x = 0; while($x <= 4){ if (my @cards){ $_ =~ s/C/Clubs, s/S/Spades, s/H/Hearts, s/D/Diamonds; } my @cards = deckof(@cards); my @newcards = decko(@cards); print "@cards[$x] , @newcards[$x]\n"; $x++; } [download] #############test-lib.pl############## `#!/usr/bin/perl sub deckof{ my @cards = @_; foreach $card(@random_card){ my $element1 = (pop(@random_card), shift(@random_card), pop(@r +andom_card)); my $element2 = (shift(@random_card), pop(random_card), shift(@ +random_card)); push(@cards, $element1, $element2); } return @cards; } 1;` [download]	[reply] [d/l] [select]
Re^3: Perl subroutine update by jethro (Monsignor) on Apr 05, 2011 at 15:59 UTC
Well, sure, if you turn off warnings, naturally you get no warnings, but you are ignoring things that hint at problems with your code. By removing strict, you get fewer errors, but you also get no information when you mistype variable names. Do you think a script works better if it shows no error message but simple prints the wrong result? This is how politicans solve problems, by removing the warning signs ;-) You still haven't changed $element1 to @element1 in this script. Did you notice that you call your subroutine as "decko" in line 21? Another problem: you should not use foreach on an array when you change the array inside with pop,shift and push. Normally it leads to fewer loop executions as expected. In your case it is even fortunate that it does so because if it had run for every element in the array, your array would have only 1 or 2 cards left because you are constantly dropping cards (i.e. removing them from the array) with your broken shuffle Look at the script I posted to your first post about this problem in Re: Perl Subroutine. Notice that I used a different loop. I did it because foreach is not the right choice here	[reply]
Re^4: Perl subroutine update by craziestfire73 (Initiate) on Apr 05, 2011 at 17:56 UTC
sorry for the mistakes, I have been working on this for days and getting kind of frustrated, but I won't be better until I get the code right. ################test.pl############ #!/usr/bin/perl -w use strict; require 'test-lib.pl' my @startingdeck = ("A H","2 H","3 H","4 H","5 H","6 H","7H","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 @random_cards= @startingdeck; my $x = 0; foreach(@cards){ $_ =~ s/C/Clubs/, s/S/Spades/, s/H/Hearts, s/D/Diamonds/; } my @cards = deckof(@cards); my @newcards = deckof(@cards); print "@cards[$_], @newcards[$_]\n" for 0..4; $x++; [download] ############test-lib.pl############ `#!/usr/bin/perl -w use strict; sub deckof{ my @cards = @_; foreach my $card(1...30){ my @elements1 = (pop(@cards), shift(@cards), pop(@cards)); my @elements2 = (shift(@cards), pop(@cards), shift(@cards)); push(@cards, @elements1, @elements2); } return @cards; } 1;` [download]	[reply] [d/l] [select]
Re^3: Perl subroutine update by craziestfire73 (Initiate) on Apr 05, 2011 at 18:04 UTC
sorry for the mistakes, I have been working on this for days and getting kind of frustrated, but I won't be better until I get the code right. ################test.pl############ #!/usr/bin/perl -w use strict; require 'test-lib.pl' my @startingdeck = ("A H","2 H","3 H","4 H","5 H","6 H","7H","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 @random_cards= @startingdeck; my $x = 0; foreach(@cards){ $_ =~ s/C/Clubs/, s/S/Spades/, s/H/Hearts, s/D/Diamonds/; } my @cards = deckof(@cards); my @newcards = deckof(@cards); print "@cards[$_], @newcards[$_]\n" for 0..4; $x++; [download] ############test-lib.pl############ `#!/usr/bin/perl -w use strict; sub deckof{ my @cards = @_; foreach my $card(1...30){ my @elements1 = (pop(@cards), shift(@cards), pop(@cards)); my @elements2 = (shift(@cards), pop(@cards), shift(@cards)); push(@cards, @elements1, @elements2); } return @cards; } 1;` [download]	[reply] [d/l] [select]
Re^4: Perl subroutine update by jethro (Monsignor) on Apr 06, 2011 at 09:43 UTC
Ok, I see progress. Lets get those last warnings out of the way: First warning you get is for the line where you use substitution. I have an editor with syntax highlighting (emacs in my case, but padre and lots of other editors should have this too) and so could see directly where the problem lies. Look closer at the third substitution, `"s/H/Hearts"`. Do you see it, there is a slash missing? Quite unrelated, using ',' to string the substitutions together is not working as you probably think it would, but since substitutions work on $_ per default, it actually still does what you want. So you could change the ',' to ';', but it works either way. Next, you still use `@cards[$_] and @newcards[$_]` in the string in line 22. Please change that to `$cards[$_] and $newcards[$_]` or the warning will not go away. Or simply write the line as `print "@cards[0..4], @newcards[0..4]\n";` [download] which would have the advantage of printing the 4 cards of each shuffle together. If you rerun your script now, you get a warning "Global symbol "@cards" requires explicit package name at ./t7.pl line 21". You use @cards on line 21 before you declare it on line 25. And you don't initialize it. Where do you put values into @cards? Since you don't use @random_cards anywhere except in line 16 I suspect you meant to use @cards there. So change the name @random_cards to @cards in line 16 and remove the 'my' in front of @cards in line 25. If all went well you should have the following script, which actually works: my @startingdeck = ("A H","2 H","3 H","4 H","5 H","6 H","7H","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 @cards= @startingdeck; my $x = 0; foreach(@cards){ $_ =~ s/C/Clubs/, s/S/Spades/, s/H/Hearts/, s/D/Diamonds/; } @cards = deckof(@cards); my @newcards = deckof(@cards); print "@cards[0..4], @newcards[0..4]\n"; $x++; [download]	[reply] [d/l] [select]