А с каких пор open научился читать ссылку на скаляр как файл? Там, вроде
бы, ссылка на glob нужна, не?


7 декабря 2011 г. 20:33 пользователь Denis Evdokimov <
[email protected]> написал:

> Приветствую.
> Кто мне сможет объяснить, почему второй вариант так разительно отличается
> от первого варианта?
> Много чего перечитал, прежде чем отправить вопрос, но внятно объяснить так
> и не смог.
>
> #!/usr/bin/perl
> use strict;
> use warnings;
>
> my $data = "aaa\nbbb\nccc\n";
>
> # Вариант 1
> close STDIN or die $!;
> open( STDIN, '<', \$data ) or die $!;
> @ARGV = ();
> while (<STDIN>)
> {
>     print "[[$ARGV]]***$_";
> }
>
> # Вариант 2
> close STDIN or die $!;
> open( STDIN, '<', \$data ) or die $!;
> @ARGV = ();
> while (<>)
> {
>     print "[[$ARGV]]***$_";
> }
>
>
> --
> Moscow.pm mailing list
> [email protected] | http://moscow.pm.org
>
>


-- 
Andrei Protasovitski
< andrei[dot]protasovitski[at]gmail[dot]com >
Diemen, Netherlands
-- 
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить