2013/3/23 Marcio Ferreira <[email protected]> > >> >> sub somaValor { >> my ($a,$b)=undef; > > > Por que essa linha? Evitar problema com globais?
Até porque, somente "$a" está recebendo "undef", talvez você quisesse "my ($a,$b)=(undef, undef)" ou simplesmente "my ($a,$b)". $ perl -E'$a=12;$b=15;($a,$b)=5;say $a,$b' 5 faço muito: "my ($a,$b)=@_;" direto, o que pra mim é uma recomendação(lendo o http://modernperlbooks.com, ele não tem )
=begin disclaimer Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ SaoPaulo-pm mailing list: [email protected] L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer
