|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Konstantin Tokar 2:5020/400 29 Mar 2002 22:54:13 To : Andrey Sapozhnikov Subject : Re: Hесколько вопросов к Андрею -------------------------------------------------------------------------------- l.su> <a825he$18jv$1@ddt.demos.su> <3CA4A6AA.7020604@icb.chel.su> l.su> <3CA4AB16.3D03F9C@apmsun.mpei.ac.ru> <3CA4AE35.9010904@icb.chel.su> From: Konstantin Tokar <tokar@apmsun.mpei.ac.ru> Andrey Sapozhnikov wrote: > > Konstantin Tokar wrote: > >>В определенных случаях эта конструкция может не отработать как > >>надо. Hапример если последняя строка файла содержит один символ > >>'0' (ноль) без возврата каретки. В этом случае $FileLine будет > >>false и строка не обработается. Корректной будет запись: > >> > > > > Сработает. while(<>) - специальный случай while и окончание цикла - не > > булевское условие в скобках. > > Hе сработает. Внимательно перечитываем письмо. Там в скобках выражение > присваивания: while ($FileLine = <FILE>), а не while (<FILE>). Про то, > что второй вариант является исключением, я прекрасно знаю. > Проверь, подсунь ему на вход файл с нулем в конце. #!perl -w use strict; my $a; while($a=<>){ print $a; } --- ifmail v.2.15dev5 * Origin: Demos online service (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/12770e2fdd261.html, оценка из 5, голосов 10
|