[Moscow.pm] (без темы)

[Alexandr Gomoliako]

On Wed, Nov 16, 2011 at 6:27 PM, Nikolay Mishin <mi at ya.ru> wrote:
> Спасибо Денис, но спасение, видимо, вот в чем:
>
> perl -e '
> use warnings;
> my ( $a, $b, $c );
> if ( ( defined $a ) and ( defined $b ) ) {
>    my $c = $a . $b;
> }
> if ( defined $c ) {
>    print $c;
> }
> '

А без uninitialized этот код бы выглядел:

my ($a, $b, $c);
{  my $c = $a.$b;  }
print $c;