On Wed, Feb 8, 2012 at 12:24 AM, Brandon McCaig <bamcc...@gmail.com> wrote:
> On Tue, Feb 07, 2012 at 08:20:06AM -0500, Shawn H Corey wrote:
>> Inside a sub, shift without an argument will shift @_. Outside, it
>> will shift @ARGV. It is always best to explicitly state the array:
>>
>> sub header {
>> my $month = shift @_;
>> my $year = shift @_;
>
> Even better can be just assigning your arguments array to a list
> of lvalues:
>
> use strict;
> use warnings;
>
> sub header
> {
> my ($month, $year) = @_;
>
> # ...
> }
>
> header(qw/January 2012/);
>
> This way is very clean and simple. It shows a clear relationship
> between the position and the argument and allows you add new
> arguments with less code. Use shift if you actually want to
> remove elements from the beginning of the array.
>
> Regards,
Thanks, ^_^
>
>
> --
> Brandon McCaig <bamcc...@gmail.com> <bamcc...@castopulence.org>
> Castopulence Software <https://www.castopulence.org/>
> Blog <http://www.bamccaig.com/>
> perl -E '$_=q{V zrna gur orfg jvgu jung V fnl. }.
> q{Vg qbrfa'\''g nyjnlf fbhaq gung jnl.};
> tr/A-Ma-mN-Zn-z/N-Zn-zA-Ma-m/;say'
>
>
> -----BEGIN PGP SIGNATURE-----
> Version: GnuPG v1.4.10 (GNU/Linux)
>
> iQIcBAEBAgAGBQJPMVAnAAoJEN2n1gIi5ZPy0VMP/iAtJXW+ZPeOLSyZGqK0iePj
> jdvE3shBFyrIfIp30ix4jguoo9XS6MKrmHztZ863uksN9ra8kArFoEyNtMBZSmvx
> d4sZqpk+NpIWK9WI6gseRFxBK8K3nVjv4L2d7p0YP6KDLMkuYXLjHRbXYbtaxxRc
> P1283xX8NZpMdIpnAdbWSgYUHzt+vFhmWUX3hRXO4x5AsptgrNbLnsjTdRCjIEIk
> eZ+fgccp4xiA49u4Xx+JTSM2dbk+oj+diTP9e8jsH1lQZkYVdlCtU2Sf/vVrCIO0
> C79ZM8SVTHfdrRjTYd1Xw2JKbv2ltgTwfx3xEVokGIEmlU3hdnnrG3mQUfmQPExu
> QIiXYVGD9LYXxZO3uExTjlx+3QMnTQgtgYJbnjVXAFuqHKG+eb7LVNiwjmea0M3S
> KxMnZtNh4ClfTx1/UZ2FLy1YXE/8lTBUZuyKKP+pZ6gJE7CWBtHdY7U/1z62HC2C
> fdIrDijajO2oBVzckv1wZ8wowNPjbPL679eFRr1rcJ8PIUn1O5J+SlPQ6cfM3I6G
> hO9XMwPnnAacaLf11QpXKC7YWYossSjs/KU3/HW6vshd/QRb4rbNBFbPE/CwYCyC
> fxiyPTGWOCagrQ1x9iF+ESDcw1gWyNje545wu+ywe9w4cHNsHbifMxsOmDgYKYo/
> RIHiiQiNknhiVLa4NBZT
> =3gqy
> -----END PGP SIGNATURE-----
>
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
