ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Loginov Nick                         2:5020/5000.21 14 Jan 2001  15:13:24
 To : Dmitry Grishkevich
 Subject : guestbook
 -------------------------------------------------------------------------------- 
 

 
 
  DG>   Hе подскажет ли всезнающий ALL как лучше всего в гостевой книге удалять
  DG> опpеделенные записи. Пока мне видится следующий способ: в начале и конце
  DG> каждого сообщения ставить комментаpии с номеpом этого сообщения и потом
  DG> если нужно то искать их и выpезать, но здесь возникает дpугой вопpос как
  DG> нумеpовать сообщения ? Может есть дpугой какой способ ?
 
 А зачем их нумеровать, если у тебя они и так по строчно пронумерованы?
 Допустим скрипт получает какой-либо номер, каторый надо удалить - $del
 
 open (GB,$gbbase);
 @base=<GB>;
 close(GB);
 $size=scalar(@base);   #номер последней строки в файле.
 
 open (GB,">$gbbase");  # отчищаем файл
 close(GB);
 
 while ($size > $i)
 {
 if ($i == $del) {$i++} else
 {
 open (GB,">>$gbbase");
 print GB "base[$i]";
 close(GB)
 }
 }
 
 Можно наверно и по другому сделать. Hо так набросал что первое в голову пришло. 
 Работать должно 100 пудово!
  А если тебе нумеровать их надо, тогда берешь $size прибавляешь к нему единицу
 и добавляешь в базу и так какждый раз и получиться нумеровка.
 
 [Team Quake] [Team RusRock]                           .-= Bye =-.
 
 ... [WaL]Stork blew himself up
 --- GoldEd
  * Origin: http://www.chat-fregat.com (2:5020/5000.21)
 
 

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

Тема:    Автор:    Дата:    guestbook   Dmitry Grishkevich   10 Feb 2001 13:39:58   Re: guestbook   Vyacheslav Zhdanov   12 Feb 2001 10:50:19   guestbook   Loginov Nick   14 Jan 2001 15:13:24   Re: guestbook   Artem Chuprina   14 Feb 2001 12:19:08