cgi程序运行时报错！

herolyh

通过浏览器运行cgi程序时，总是弹出一个窗口，提示perl.exe产生了错误，会被windows关闭，您需要重新启动应用程序。
这是为什么，难道windows下不能运行多线程程序？
代码如下:
#!/usr/bin/perl -w
use CGI qw(:standard);
use CGI::Carp qw/carpout fatalsToBrowser set_message/;
use DBI;
use Time::localtime;
use Time::HiRes qw( gettimeofday tv_interval );
use IO::Socket;
use threads;
use threads::shared;
use strict;

sub getKey;
sub printKey;
sub updateData($);

print header(),start_html("this is my first database access";
print h1("starting...";
my @threadlist;
open FD,"key.txt" or die "can't open file!\n";
my @key=<FD>;
my $thread_num=4;

for(my $i=0;$i<$thread_num;$i++) {
        my $key=getKey();
        $threadlist[$i]=threads->create("updateData",$key) or die "can't create thread!\n"
}

foreach (@threadlist) {
        $_->join() or die "can't create thread!\n";
}

sub updateData($) {
my $tmpkey=shift;
$tmpkey=~s/\n//g;
my $user="cpc";
my $passwd="sogouad";
my $dbh = DBI->connect("dbi:Oracle:host=192.168.41.50;sid=search",$user,$passwd);
my $string="select c_key from key where c_key='$tmpkey'";
my $sth=$dbh->prepare($string);
$sth->execute();
while(my @value=$sth->fetchrow_array()) {
        foreach (@value) {
        print $_,br();
}
}
$sth->finish();
$dbh->disconnect();
}

sub getKey() {
        my $number=int(rand(6));
        return $key[$number];
}

sub printKey() {
        my $keyword=shift;
        print $keyword;
}

print end_html();
exit;

herolyh

帮帮忙啊！

ulmer

原帖由 herolyh 于 2007-2-7 16:02 发表
#!/usr/bin/perl -w

try this:
#!/PATH/TO/YOUR/WINDOWS/PERL.EXE
i.e:
#!/Perl/bin/perl.exe              # default path for activestatePerl instalation

or modify windows's Appache configuraion.

--ulmer

herolyh

不行，应该不是这个问题！

herolyh

帮忙看看嘛

herolyh

不用
$threadlist[$i]=threads->create("updateData",$key) or die "can't create thread!\n“；
就不会报错！

ulmer

原帖由 herolyh 于 2007-2-7 19:54 发表
不用
$threadlist[$i]=threads->create("updateData",$key) or die "can't create thread!\n“；
就不会报错！

don't use die "...", it will occure HTTP HEADER error.
try to use self defined sub routine for html error ouput.
sub error {
     # print "Content-type:text/html\n\n";
     print "ERROR: can't create thread<br>\n";
    exit;
}


P.S: is your code no problem  running under command line?

-- ulmer

[ 本帖最后由 ulmer 于 2007-2-7 20:43 编辑 ]

helbreathszw

弄线程为了最大限度提高搜索引擎的效率。
然后为了节约内存，打算采用mod_perl?
楼主是搜狗的吧！
而且从写法来分析，还是C的转perl..........

[ 本帖最后由 helbreathszw 于 2007-2-7 21:05 编辑 ]

herolyh

$threadlist[$i]=threads->create("updateData",$key) or die "can't create thread!\n“；
去掉or die "can't create thread!\n“；
还是报一样的错误！