такая запись: my $t = <VAL> if <EXPR>; вопщем-то настоятельно не рекомендуется в Perl доках (именно из-за my впереди стоящего)
14.04.09, 16:34, "Alexander Q" <[email protected]>: > #!/usr/bin/perl > use strict; > use warnings; > use Data::Dumper; > for(1..10) { > my $t = 'undef' if 0; > print Dumper $t; > $t = 'def'; > } > -- > With best regards, > Alexander Q mailto:[email protected] > -- > Moscow.pm mailing list > [email protected] | http://moscow.pm.org -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
