在我的Mojolicious perl代码中,我处理从远程客户端创建和监视的作业。
我将作业保存在一个哈希数组中,这是一个全局变量。
然后用于PUT'/ job / create'和GET'/ job / status'的处理程序。 使用PUT'/ job / create'添加新作业时,数组会获得 在子程序中扩展(它包含下面代码中的4个元素), 但是当通过GET'/ job / status'请求作业的状态时,列表 作业,数组不包含添加的元素(它计数2 元件)。
谢谢,Jan
以下是代码:
#!/usr/bin/perl -w
use threads;
use threads::shared;
use Mojolicious::Lite;
use Mojo::JSON;
my (%record, %job1, %job2, %job3, @jobs) : shared;
%job1 = ( id=>"id1");
%job2 = ( id=>"id2");
%job3 = ( id=>"id3");
push ( @jobs, \%job1 );
push ( @jobs, \%job2 );
app->config(hypnotoad => {listen => ['http://*:3000']});
put '/job/create' => sub {
my $self = shift;
my $obj = Mojo::JSON->decode( $self->req->body );
my $id = $obj->{id};
%record = (id => $id);
push ( @jobs, \%record ); # test the global prefilled
push ( @jobs, \%job3 ); # test the global locally filled
$self->render(text => "Created job id $id. Jobs count: " .
$#jobs );
};
get '/job/status' => sub {
my $self = shift;
my $out = "[";
for(my $i=0; $i<$#jobs+1; $i++) {
$out .= "{id:\"" . $jobs[$i]{id} . "\",";
$out .= "," if $i<$#jobs;
}
$out .= "]";
$self->render(text => "allJobsInfo($out). Num jobs: " . $#jobs);
};
app->start();