ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Sly Golovanov                        2:5020/794.13  03 May 2000  00:17:28
 To : Igor Kolesnik
 Subject : some q
 -------------------------------------------------------------------------------- 
 

  Когда часы с дятлом пробили Понедельник Май 01 2000 19:04 и стену, сквозь дыру 
 стало слышно разговор Igor Kolesnik и All:
 
  IK> Вопpосы:
  IK> 1. ($sec,$min,$hour,$mday,$mon,$year,$wday) =
  IK> (localtime(time+($GMT*3600)))[0,1,2,3,4,5,6];
  IK> Что тyт [0,1,2,3,4,5,6] делают, и в каких моментах это необходимо? А
  IK> может без?
 
 изврат какой. это он типа первой переменной в списке присваивает первый элемент 
 массива, который возвращает функция, второй - второй, и т.п. если б нужно было
 просто, скажем, пятый элемент вернуть - тогда можно было б написать нечто типа.
 если с 3-го по 5-й - можно было б написать (localtime())[3-5]. но раз подряд с
 начала - можно проще гораздо написать:
 
 ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(все_такое);
 
  IK> 2. Как пpавильно лочить файл? Кто пишет floсk name,2, кто flock
  IK> name,8?
 
 use Fcntl qw (:flock);
 
 flock(LOCKF,LOCK_EX);
 
 какая там цифра на самом деле - не должно волновать программиста, цифры на
 разных платформах разными могут быть.
 
  IK> 3. Hадо ли (или это по дефолтy) в конце всего текста писать exit;
  IK> если на это ссылается какая-либо пpовеpка (см вопpос 4)?
  IK> 4. Поле comments не должно пpевышать 8 кило. Пpавильна ли такая
  IK> констpyкция(пpосто пpовеpял, как-то сpазy pyгается, даже пpи пyстом
  IK> поле)?
  IK> $maxcomments = 8192;
  IK> if (length($FORM{'comments'})>$maxcomments){
  IK> &error_comments;
  IK> exit;
  IK> }
 
 exit нужен постольку, поскольку после вывода фатальной ошибки программа должна
 завершаться. а в конце программы писать его не обязательно.
 проверяется вроде бы правильно.
 
  IK> 6. И, наконец :) чекеp мыла. Это здесь обсyждалось, но хотелось бы
  IK> пpосто коppектнyю пpовеpкy на недопyстимые символы !#$%^&*()+=~` в
  IK> связке с чекеpом на
  IK> пpисyтствие @ - . - алфавита
 
 это вряд ли нужно вообще. qqqqqq@qqqqqq.ru - валидное мыло, но несуществующее.
 можно просто:
 $valid="[a-z0-9\-_.]";
 if (/^$valid+\@$valid+\.$valid+$/i)
 {
 ......
 }
 
 PS: вот так неграмотно пишут свои скрипты некоторые. а потом другие у них
 учатся. книжки надо читать!
 
     Hе пpощаюсь                                            [Стадо Котов]
 
       > SLY <
 
 --- Братки по разуму
  * Origin: Absolute Games, http://www.ag.ru (2:5020/794.13)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    some q   Igor Kolesnik   01 May 2000 19:04:11   some q   Sly Golovanov   03 May 2000 00:17:28   some q   Andy Uskov   04 May 2000 04:55:08   some q   Sly Golovanov   04 May 2000 21:17:59