ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Alexey Litvinuke                     2:454/26.8     05 May 2001  15:27:36
 To : George
 Subject : <без заголовка>
 -------------------------------------------------------------------------------- 
 

  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~і
 
 > [...]
 
  лучше делать так:
 
  sub getcookie
   {
    my($id) = @_[0];
    my(@tmp, @tmp1);
    @tmp = split(/\;/,($ENV{'HTTP_COOKIE'})?$ENV{'HTTP_COOKIE'}:$ENV{'COOKIE'});
    foreach (@tmp)
     {
      @tmp1 = split(/\=/);
      if (@tmp1 eq $id)
       {
        return @tmp1[1];
       }
     }
    return 0;
   }
 
  получается вполне не плохо!
 
  ЗЫ  прошу прощения, база грохнулась. потому без квотинга, субжа и адреса
      :(((
  ________________________________________________________________________і
  °°°Litvinuke Alexey(aka Neuron)(C/C++,Perl,Awk support!)  2:454/26.8  °°°
  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  ... Мне не хочется верить, но это к слезам.
 
 --- Dolphin 3.00.Beta5+
  * Origin: Брестский лицей #1 [учащийся группы 33м/и]         (2:454/26.8)
 
 

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

Тема:    Автор:    Дата:    <без заголовка>   Alexey Litvinuke   05 May 2001 15:27:36   Re: <none>   Eugene Bodin   06 May 2001 06:54:35   <none>   Alexey Litvinuke   07 May 2001 23:53:53   <без заголовка>   Oleg N. Kotenko   09 May 2001 15:14:19   <без заголовка>   Alexey Litvinuke   10 May 2001 16:48:47