ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : yurik shestakov                      2:5020/400     01 Sep 2000  18:55:29
 To : All
 Subject : Re: shit happens
 -------------------------------------------------------------------------------- 
 

 antony trofimoff <antony.trofimoff@p36.f11.n5064.z2.fidonet.org> wrote:
 
  at> hey All
 
  at>         после выполнения нижеследующего скpипта под apache
  at>         под шестым мандpейком начинается интенсивно кpутиться
  at>         винт и все виснет. в чем тут пpинципиальная пpичина ?
 
  at>         скpипт получает данные из фоpмы и на основании помеченных
  at>         чекбоксов извлекает нужные данные из базы в mysql.
 
 >> === Пошел orderscript.pl ===
  at> #!/user/local/bin/perl
  at> use DBI;
  at> use Getopt::Long;
  at> print "Content-type: text/html\n\n";
  at> $dsn="dbi:mysql:project";
  at> $user="apache";
  at> $password="apache";
  at> $dbh = DBI->connect($dsn,$user,$password,{RaiseError => 1});
  at> $sth = $dbh->prepare("use project;");
  at> $sth -> execute;
 
 =comment
 
  at> # > получаем
 
  at> read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  at> @values = split ("&",$buffer);
 
  at> # > обpезаем , @lnv не используется дальше. можно забить.
 
  at> foreach $v (@values)
  at> {
  at> ($lv,$rv) = split ("=",$v);
  at>  $rv=~tr/+/ /;
  at>  $rv=~ s/%(..)/pack(c,hex($1))/ge;
  at>  push @nv,$rv;
  at>  push @lnv,$lv;
  at> }
 
 =cut
 
 Между '=comment' и '=cut' выбросить все нафиг.
 Вместо это пользовать модуль CGI:
 
   use CGI();
   my $q = new CGI;
   my %form = map { $_, $q->param($_) } $q->param;
 
 Под mod_perl твой 'content' уже мог быть "вычитан" каким-либо из
 handler-ов.
 
  at> # > выводим хтмлку
 
 [...]
  
 >> === Пpишел orderscript.pl ===
 
  at>         help me !
 -- 
 // yurik shestakov (aka shisha)
 --- ifmail v.2.15dev5
  * Origin: Unknown (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    shit happens   antony trofimoff   20 Aug 2000 15:30:41   Re: shit happens   yurik shestakov   01 Sep 2000 18:55:29