6

私のMojoliciousperlコードでは、リモートクライアントから作成および監視されたジョブを処理します。

私は、グローバル変数であるハッシュの配列でジョブを保持します。

次に、PUT'/ job/create'およびGET'/job/status'のハンドラーで使用されます。PUT'/ job / create'を使用して新しいジョブを追加すると、配列はサブルーチンで拡張されます（以下のコードには、4つの要素が含まれます）が、GET' / job / status'を介してジョブのステータスを要求すると、ジョブの場合、配列には追加された要素が含まれていません（2つの要素をカウントします）。

ありがとう、1月

コードは次のとおりです。

#!/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();
4

1 に答える 1

7

hypnotoadはスレッドではなくフォークを使用しているため、これは実際には機能しません。データベースやCache::FastMmapなどにデータを保存することをお勧めします。

于 2012-02-23T10:32:43.773 に答える