Created
May 29, 2013 14:45
-
-
Save notbenh/5670829 to your computer and use it in GitHub Desktop.
an example of using print as a debugging tool
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use strict; | |
use warnings; | |
my @Beatles = qw (John Paul George Ringo); | |
print "AT THE START Beatles are [@Beatles]\n"; | |
my ($drummer, @vocals); | |
$drummer = pop @Beatles; | |
print "Drummer is $drummer and Beatles are [@Beatles] \n"; | |
push @vocals, shift @Beatles; | |
print "Vocals are [@vocals] and Beatles are [@Beatles] \n"; | |
push @vocals, shift @Beatles; | |
print "Vocals are [@vocals] and Beatles are [@Beatles] \n"; | |
push @vocals, shift @Beatles; | |
print "Vocals are [@vocals] and Beatles are [@Beatles] \n"; | |
unshift @Beatles, @vocals; | |
print "Vocals are [@vocals] and Beatles are [@Beatles] \n"; | |
shift @Beatles; | |
print "Beatles are [@Beatles] \n"; | |
push @Beatles, $drummer; | |
print "Beatles are [@Beatles] \n"; | |
push @Beatles, 'Pete Best'; | |
print "AT THE END Beatles are [@Beatles]\n"; |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
The output I get is:
AT THE START Beatles are [John Paul George Ringo]
Drummer is Ringo and Beatles are [John Paul George]
Vocals are [John] and Beatles are [Paul George]
Vocals are [John Paul] and Beatles are [George]
Vocals are [John Paul George] and Beatles are []
Vocals are [John Paul George] and Beatles are [John Paul George]
Beatles are [Paul George]
Beatles are [Paul George Ringo]
AT THE END Beatles are [Paul George Ringo Pete Best]