> perl -ne 'open(STDIN, "passwd"); print $_;' test
> Однако, несмотря на команду "open", выводится информация из файла test.Перепиши это без -n, чтобы было понятно, что ты наделал:
perl -e 'while(<>){ print(STDIN, "passwd"); print $_; }' test
<> - это не STDIN, а magic descriptor. Он станет читать STDIN, только если @ARGV был пуст перед первым использованием <>.
Сравни:
perl -e 'open(STDIN, "passwd"); print <>;' testperl -e 'shift; open(STDIN, "passwd"); print <>;' test
man perlvar
man perlopentut. Обрати внимание на @ARGV = map { m#^\w+://# ? "GET $_ |" : $_ } @ARGV;
После такого ты сможешь
while (<>)
{
...
}
читать из <> страницы с URL из списка.
Вариант для распечатки
