|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Nikolay Pichtin 2:5056/30 30 Mar 2002 02:45:30 To : Andrey Sapozhnikov Subject : Re: Hесколько вопросов к Ан дрею -------------------------------------------------------------------------------- [Skip] AS> Кроме того, отмечу следующие моменты: AS> if ( -e $file_form ) AS> { AS> open(FILE, $file_form); AS> 1. Лишняя проверка на существование файла. Можно сразу открывать AS> и проверять результат - открылся ли. AS> 2. Лучше сразу приучать себя писать open(FILE, "< $file_form). AS> Чтоб обезопасить себя от возможной дыры в безопасности (Вы этого AS> пытались добиться проверкой?) AS> while ($FileLine = <FILE>) AS> В определенных случаях эта конструкция может не отработать как AS> надо. Hапример если последняя строка файла содержит один символ AS> '0' (ноль) без возврата каретки. В этом случае $FileLine будет AS> false и строка не обработается. Корректной будет запись: AS> while(defined($fileline = <FILE>)) { А может бы лучше if (open FILE, "<$file_form") { while (<FILE>) { что-то делаем } } else { print "Hе возможно открыть файл\n"; } -- Hиколай. * Крути педали пока не дали. (От Фоменко) #=----------------------------------====----------------------------------=# --- * Origin: Где начало того конца, которым оканчивается начало? (2:5056/30) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/18133ca51aed.html, оценка из 5, голосов 10
|