ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Artem Kuznecov                       2:5059/29.46   06 Apr 2002  21:00:18
 To : All
 Subject : help
 -------------------------------------------------------------------------------- 
 

 Помогите плиз..
 скрипт
 записывает в переменную ip адрес клиента
 открывает файл и проверяет
 есть ли в данном файле строка содержащая данный ip
 если есть, то перезаписывает строку в тот же файл
 но с новым значением $time
 если нет, то просто перезаписывает строку в файл...
 так по идее должно быть, но не получается... :-(
 подскажите где ошибка, если она есть...
 
 #!/bin/perl.exe
 
 $ip=$ENV{'REMOTE_ADDR'};
 
 open F, "data.dat";
 @data=<F>;
 close F;
 
 open F, ">data.dat";
 print f,"";
 close f;
 
 for ($i=$[; $i<=$#nikiptime; $i++)
 {
    ($word, $ipaddr, $time) = split("#", $data[$i]);
 
 if ($ipaddr eq $ip)
  {
    $time=..;#присваивается новое значение
  }
 $str=join('#',$word, $ipaddr, $time);
  open F, ">>data.dat";
  print f "$str\n";
  close F;
 }
 --- GoldED+/386 1.1.4.5
  * Origin:  (2:5059/29.46)
 
 

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

Тема:    Автор:    Дата:    help   Artem Kuznecov   06 Apr 2002 21:00:18   Re: help   Alexey Pchelnikov   07 Apr 2002 00:44:00   Re: help   Artem Kuznecov   07 Apr 2002 19:13:33   Re: help   Alex Povolotsky   07 Apr 2002 07:43:02   Re: help   Artem Kuznecov   10 Apr 2002 11:36:59   Re: help   Artem Kuznecov   10 Apr 2002 11:47:30   Moderatorial [++] (Re: help)   Comoderator of RU.CGI.PERL   11 Apr 2002 11:24:17