ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Anton Fedosin                        2:5020/400     23 Jul 2001  14:20:09
 To : All
 Subject : Re: Help
 -------------------------------------------------------------------------------- 
 

 
 Babunin Sergej <ellips@12move.de> wrote in message
 news:9jet46$1p1p$1@wrath.news.nacamar.de...
 
 > Hi тебе ALL,
 > Hарод есть у меня проблема Hелп мне
 >
 > #!/usr/bin/perl
 > #main.cgi
 > if ($ENV{'REQUEST_METHOD'} eq "POST") {read(STDIN,
 > $buffer,$ENV{'CONTENT_LENGTH'})}
 > if ($ENV{'REQUEST_METHOD'} eq "GET") {$buffer = $ENV{'QUERY_STRING'}}
 > @pairs = split(/&/, $buffer);
 >  foreach $pair (@pairs){
 >   ($name, $value) = split(/=/, $pair);
 >   $value =~ tr/ / /;
 >   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex ($1))/eg;
 >   $value =~ s///g;
 >   $FORM{$name} = $value;
 >   }
 >
 > $nick = $FORM{'user_name'};                                         #Здесь
 > сохраняю имя  пользователя
 > if ($FORM{'user_name'} ne ""){
 > print "Content-Type: text/html\n\n";
 > print "Hi $nick\n";         #Здесь приветствую его
 > print "<a href='/cgi-bin/main.cgi?win'>Другое окно</a>\n";     #здесь
 > переход в другое окно
 > exit;
 > }
 > if ($name eq "win"){
 >  print "Content-Type: text/html\n\n";
 > print "Привет $nick ты в другом окне\n";        #Здесь хочу его
 > попреветствовать и не могу
 > exit;
 
 #Hе
 
 > показывает переменную $nick
 > }
 >
 > print "Content-Type: text/html\n\n";
 > print "Poka $nickr\n";
 
 #!/usr/bin/perl
 use CGI qw/:standard/;
 
 my $nick = param('user_name');
 print header; #типа "Content-Type: text/html\n\n";
 if ($nick eq "win") {
 ....
 } elsif($nick) {
 ....
 } else {
     print "Poka $nickr\n";
 }
 exit;
 
 Если я все правильно понял..
 
 Антон Федосин.
 
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Help   Babunin Sergej   22 Jul 2001 19:56:56   Re: Help   Alexei Ptshelnikov   22 Jul 2001 21:16:46   Help !!!   Fred Musiutchuk   30 Jul 2001 16:24:03   Re: Help !!!   Andrew A. Sabitov   01 Aug 2001 06:49:20   Help !!!   Denis Zwerew   01 Aug 2001 13:36:40   Re: Help !!!   Pavel Ammosov   02 Aug 2001 15:25:48   Re: Help   Anton Fedosin   23 Jul 2001 14:20:09   Help   Aleksey Oleynikov   24 Jul 2001 11:29:04