Nel mio codice perl Mojolicious gestisco un lavoro creato e guardato da un client remoto.Globali e discussioni in Mojolicious per la gestione di percorsi diversi
Conservo i lavori in una serie di hash, che è una variabile globale.
Viene quindi utilizzato nei gestori di PUT '/ job/create' e GET '/ job/status'. Quando si aggiunge un nuovo lavoro con il PUT '/ job/create' l'array ottiene esteso nella subroutine (contiene 4 elementi nel codice sottostante), ma quando si richiede lo stato dei lavori tramite GET '/ job/status' l'elenco dei lavori , l'array non contiene gli elementi aggiunti (conta 2 elementi ).
Grazie, Jan
Ecco il codice:
#!/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();
Grazie per l'aiuto. Alla fine, mi sono trasferito a una soluzione con CouchDB. Sembra piuttosto carino. :) –
Alternative 'perl il tuo demone app -l 'http: // *: 3000'' potrebbe funzionare anche. [consultare il web server integrato] (http://mojolicio.us/perldoc/Mojolicious/Guides/Cookbook#Built2Din_web_server) – klekker