perl - программа молчит.
Здравствуйте!
решил вот попытаться освоить perl и столкнулся с непонятным...
прстенькая программа
#!/usr/bin/perl
print "Hello world!\n";
работае нормально т.е. выводит в консоль, а вот
#!/usr/bin/perl
open(PASS, "</etc/passwd") || die "Файл не найден!";
while(<PASS>)
{
print;
}
close(PASS);
вообще "зависает" т.е. после запуска файла - индикатор загрузки проца
показывает что что-то считается, а в консоли - пустота
при этом аналогичная программе команда
cat /etc/passwd - вывод даёт
Пробовал из под root и другой файл текстовый пытался открыть - то
же...
На работе тестовая машина HP Net Server E40 (P200Pro/64 Mb/ 2*2Gb/...)
Mandrake 9.1
P.S. Дома под Федорой 1 - всё работает... но на работе есть немного
времени - хотелось бы его потратить с пользой.
Fedor S. пишет:
#!/usr/bin/perl
open(PASS, "</etc/passwd") || die "Файл не найден!";
while(<PASS>)
{
print $_;
}
close(PASS);
а вот так ?