Приветствую.
Кто мне сможет объяснить, почему второй вариант так разительно отличается
от первого варианта?
Много чего перечитал, прежде чем отправить вопрос, но внятно объяснить так
и не смог.
#!/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
