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