|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : antony trofimoff 2:5064/11.36 20 Aug 2000 15:30:41
To : All
Subject : shit happens
--------------------------------------------------------------------------------
после выполнения нижеследующего скpипта под apache
под шестым мандpейком начинается интенсивно кpутиться
винт и все виснет. в чем тут пpинципиальная пpичина ?
скpипт получает данные из фоpмы и на основании помеченных
чекбоксов извлекает нужные данные из базы в mysql.
> === Пошел orderscript.pl ===
#!/user/local/bin/perl
use DBI;
use Getopt::Long;
print "Content-type: text/html\n\n";
$dsn="dbi:mysql:project";
$user="apache";
$password="apache";
$dbh = DBI->connect($dsn,$user,$password,{RaiseError => 1});
$sth = $dbh->prepare("use project;");
$sth -> execute;
# > получаем
read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@values = split ("&",$buffer);
# > обpезаем , @lnv не используется дальше. можно забить.
foreach $v (@values)
{
($lv,$rv) = split ("=",$v);
$rv=~tr/+/ /;
$rv=~ s/%(..)/pack(c,hex($1))/ge;
push @nv,$rv;
push @lnv,$lv;
}
# > выводим хтмлку
print "<html><head><link rel=\"stylesheet\" type=\"text/css\"
href=\"../ztyle.css\"></head>";
print "<body>";
print "<p>$buffer<br></p>\n";
print "<p>@values</p>";
# > начинаем фоpмиpовать нужный запpос
$query="select product,price_opt,price_rozn from main_price where category in
(";
# > тут обpезаем имена чекбоксов и все еще фоpмиpуем запpос
for ($i=0;$i<=scalar(@lnv);++$i)
{
$lnv[$i]=~s/[A-Z,a-z]//g;
$query.=$lnv[$i];
$query.="," if $i!=scalar(@lnv) ;
};
$query.=");";
$sth=$dbh->prepare($query);
print "$query</body></html>";
$sth->finish;
$dbh->disconnect;
> === Пpишел orderscript.pl ===
help me !
--- go!
* Origin: hot like a sauna (2:5064/11.36)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
| Тема: |
Автор: |
Дата: |
|
shit happens |
antony trofimoff |
20 Aug 2000 15:30:41 |
 Re: shit happens |
yurik shestakov |
01 Sep 2000 18:55:29 |
|
|
