У меня есть Perl-скрипт, который выполняется с mod_perl
и работает как HTTP server
. myServer.pl
использует module.pm
. Все выглядит нормально, когда я использую его с одним пользователем. но когда я подвергаю его давлению сотен пользователей, он выдает мне эту странную ошибку.
[ошибка] Попытка перезагрузить MyModule.pm прервана.\nСбой компиляции в запросе на /var/www/mod_perl/myServer.pl, строка 36.\nОшибка BEGIN -- компиляция прервана на /var/www/mod_perl/myServer.pl, строка 36. .
Вот пример начала моего кода для myServer.pl:
#!/usr/bin/perl -w
use strict;
use CGI;
#other use
use lib "/var/www/lib/receipt/pos";
use lib "/var/www/lib/common";
use MyModule;
my $q = new CGI;
my $myM = new MyModule(requestParams=>$q);
if($myM){
my $requestId = $myM->requestId;
#do sth
}else{
#do sth
}
#other codes
Редактировать
Вот код для MyModule.pm
Это не все, потому что я не могу опубликовать все это. поэтому я отредактировал его:
package MyModule;
use strict;
use CGI;
use DBI;
use lib "/var/www/lib/common";
use lib "/var/www/lib/receipt/pos";
use PDBC;
use Request;
use Response;
use Log::Log4perl qw(get_logger);
my $Log4PerlConf_myLoggerP = q(
log4perl.category.myLoggerP = WARN, myLoggerPLogfile
log4perl.appender.myLoggerPLogfile = Log::Log4perl::Appender::File
log4perl.appender.myLoggerPLogfile.filename = /var/www/logs/myLoggerP.Log
log4perl.appender.myLoggerPLogfile.layout = \
Log::Log4perl::Layout::PatternLayout
log4perl.appender.myLoggerPLogfile.layout.ConversionPattern = (%d) %L> %m %n
);
Log::Log4perl->init_once(\$Log4PerlConf_myLoggerP);
my $loggermyLoggerP = get_logger("myLoggerP");
use constant TRUE => 1;
use constant FALSE => 0;
use constant D_VERSION => "6.00";
my $myCode;
my $myMsg;
my $_init;
##-----------------------getter setters-----------------------------##
sub requestId {$_[0]->{requestId}=$_[1] if defined $_[1]; $_[0]->{requestId}}
sub requestParams {$_[0]->{requestParams}=$_[1] if defined $_[1]; $_[0]->{requestParams}}
sub reqID {$_[0]->{reqID}=$_[1] if defined $_[1]; $_[0]->{reqID}}
##--------------------end getter setters-----------------------------##
sub code {
my ($self,$code) = @_;
if (ref $self) { $self->{code}=$code if defined $code; return $self->{code} }
else { $myCode=$code if defined $code; return $myCode; }
}
sub msg {
my ($self,$msg) = @_;
if (ref $self) { $self->{msg}=$msg if defined $msg; return $self->{msg} }
else {$myMsg=$msg if defined $msg; return $myMsg; }
}
sub new {
my $class=shift;
my $self={@_};
bless $self,$class;
if ($self->$_init) {
return $self;
} else {
$myCode = $self->code;
$myMsg = $self->msg;
return FALSE;
}
}
sub addToDB{
my $self = shift;
my $q = shift;
my $type = shift;
my $database = new PDBC(name=>"schemaName");
if($database){
my $response = new Response(responseParams=>$q,database=>$database,type=>$type);
if($response){
$self->code(0);
$self->msg("");
return (0,"","");
}else{
$self->code(Response::code);
$self->msg(Response::msg);
}
}else{
$self->code(PDBC::code);
$self->msg(PDBC::msg);
$loggermyLoggerP->error("database connection error - code=".$self->code.",msg=".$self->msg);
}
}
sub recoverLost{
my $self = shift;
my $line = "";
for(my $i=0;$i<10;$i++){
my $recordName = "record".$i;
my $temp = $self->requestParams->param($recordName);
if(defined($temp)){
addToDB($temp,"recover");
}else{
last;
}
}
}
$_init = sub {
my $self = shift;
my $code = 0;
my $msg = "";
my $farsiMsg = "no error";
my $response;
my $requestId = "";
$self->reqID(1);
my $functionName = $self->requestParams->param('functionName');
if(defined $functionName){
if($functionName eq "addToDB"){
$self->addToDB($self->requestParams,"indirect");
}
elsif($functionName eq "recoverLost"){
$self->recoverLost();
}else{
$self->code(1019);
$self->msg("method undefined");
}
}else{
$self->code(1019);
$self->msg("method undefined");
}
if($self->code==0){
return TRUE;
}else{
return FALSE;
}
};
1;
Это может иметь синтаксические ошибки, но их нет в моем реальном коде (это пример кода, в котором я редактировал имена и некоторые другие коды). Он работает, за исключением случаев, когда сотни пользователей отправляют запрос одновременно, и он падает.
myModule;
я только что написал образец для своего кода, поэтому здесь я сделал ошибку. В моем коде все ок. Я отредактировал вопрос. - person Sarah Aziziyan   schedule 10.09.2018MyModule
. Я просмотрел код Perl, который у вас есть в вашей учетной записи github. Если вам нужны отзывы, опубликуйте их на Code Review. :) - person simbabque   schedule 10.09.2018myModule
. Но, возможно, он не возвращает true в определенных ситуациях, хотя должен делать это при использовании вuse ...
. - person Steffen Ullrich   schedule 10.09.2018