Hi,
I am trying to understand how the push and pop functions work in Perl.
Here is the script I have written:
#!/usr/bin/perl
use warnings;
use strict;
my @array = qw(Book Novel Magazine Guide);
print "\@array has @array so total:",scalar @array,"\n";
push @array,"LFY";
print "Now we have @array\n";
shift @array;
print "Now we have @array\n";
my $saved = pop @array;
print "Now we have @array and I have saved $saved\n";
unshift @array, "LFY";
print "Now we have @array\n";
And here is the output:
C:\perl>perl practice.pl
@array has Book Novel Magazine Guide so total:4
Now we have Book Novel Magazine Guide LFY
Now we have Novel Magazine Guide LFY
Now we have Novel Magazine Guide and I have saved LFY
Now we have LFY Novel Magazine Guide
Its working like expected, but just wanted to know if its a good practice to do
my $saved = pop @array or is there a better way to do it? Are there any other suggestions you would have? I know this is a very simple script, no rocket science but just wanting to ensure that I pick up the correct habits early.