[Moscow.pm] Странности и неожиданности Perl

[Alex Shatlovsky]

On 2/28/08, Andrew Fedorov <Andrei.Fedorov на sup.com> wrote:
> use Data::Dumper;
>
>  sub aa {
>     my $bad_day = 1;
>     return if $bad_day;
>     return 'bla-bla-bla';
>  }
>
>  my $test = {
>     a => aa,
>     b => 1,
>  };
>
>  print Dumper($test);
>
>  =====================
>  $VAR1 = {
>           '1' => undef,
>           'a' => 'b'
>         };
>  =====================
>  Очень многие используют return if/unless для выхода и вот к чему это может привести. Особенно следует учитывать при использовании чужих библиотек :)

"perl -w" честно ругается на Odd number of elements in hash assignment.

Вообще, для защиты от разного рода неожиданностей хорошим витамином является

#!/usr/bin/perl -w
use strict;

в начале каждого скрипта.

--

>
> ______________________________________________________________________
>  Moscow.pm mailing list
>  moscow-pm на pm.org | http://moscow.pm.org
>  http://mail.pm.org/mailman/listinfo/moscow-pm