perl使用Mojolicious設(shè)置threads查看設(shè)置參數(shù)-創(chuàng)新互聯(lián)

很無聊。。。隨便寫D代碼 不得不說perl的多線程簡單易懂

創(chuàng)新互聯(lián)服務(wù)緊隨時代發(fā)展步伐，進行技術(shù)革新和技術(shù)進步，經(jīng)過十余年的發(fā)展和積累，已經(jīng)匯集了一批資深網(wǎng)站策劃師、設(shè)計師、專業(yè)的網(wǎng)站實施團隊以及高素質(zhì)售后服務(wù)人員，并且完全形成了一套成熟的業(yè)務(wù)流程，能夠完全依照客戶要求對網(wǎng)站進行成都網(wǎng)站設(shè)計、網(wǎng)站建設(shè)、外貿(mào)網(wǎng)站建設(shè)、建設(shè)、維護、更新和改版，實現(xiàn)客戶網(wǎng)站對外宣傳展示的首要目的，并為客戶企業(yè)品牌互聯(lián)網(wǎng)化提供全面的解決方案。

加個ajax就好了

use Mojolicious::Lite;
use threads;
use threads::shared;
#請直接使用 ./x.pl daemon 啟動
#morbo啟動,線程不會自動關(guān)閉。要手動關(guān)閉改代碼才行，不然創(chuàng)建的線程仍會執(zhí)行
#當(dāng)然你的線程不是個死循環(huán)，使用morbo也是不錯的。線程執(zhí)行完就會自動退出
#當(dāng)然你可以使用其他方式避免線程句柄被重置。

#線程共享變量，
my $signal:shared=-1;
my $i:shared=0;
#線程句柄
my $thr;

#接受POST GET都是它。
any '/status' => sub {
  my $c = shift;
#只要模塊里有要使用的，即使是空值都要傳過去，不然在模塊里會報錯。
#Global symbol "$xxx" requires explicit package name
  $c->stash(status => $signal);
  $c->stash(i => $i);
  $c->stash(thr => $thr);
#數(shù)據(jù)限制。狀態(tài)設(shè)置,判斷參數(shù)使用字符串判斷是否為空
  if ($c->param('signal') ne '' && $c->param('signal') >=-1 && $c->param('signal')<=1) {
  $signal=$c->param('signal');
  $c->stash(status => $signal);
  undef $thr if $signal == -1 ;
  $c->stash(thr => $thr);
  }
#根據(jù)傳進來的參數(shù)創(chuàng)建線程
  if ($c->param('action')) {
    my $action=$c->param('action');
    if ($action eq 'create') {
      $thr = threads->new(\&ppp,1) unless $thr ;
      $c->stash(thr => $thr);
    }
  }
  $c->render('status');
};

#線程函數(shù)
sub ppp {
#接受第一個參數(shù)
    $signal=shift;
#0的時候跟false一樣
    while($signal or $signal==0){
#睡一秒鐘
        sleep 1;
        last if $signal == -1;
#再睡一秒鐘
        sleep 1 if $signal == 0;
#print要換行符才會有輸出，不然要等到mojo結(jié)束了才有輸出。
        print "running.\t.".$i++."\n" if ($signal == 1 ) 

    }
}
app->start;

__DATA__
@@ status.html.ep
% unless ($thr) {
no threads creat or threads down bbbba<br>
%} else {
<meta http-equiv="refresh" content="5">
%}
The status Can be exit=-1  stop=0 start=1 <br>
The status now is  <%= $status %> .i=<%= $i %> .thr=<%= $thr if defined $thr %> 
%= form_for '/status' => (method => 'POST') => begin
  %= text_field 'signal'
  %= submit_button '設(shè)置狀態(tài)'
% end
%= form_for '/status' => (method => 'POST') => begin
  %= hidden_field action => 'create'
  %= submit_button '創(chuàng)建線程'
% end

另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)scvps.cn，海內(nèi)外云服務(wù)器15元起步，三天無理由+7*72小時售后在線，公司持有idc許可證，提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國服務(wù)器、虛擬主機、免備案服務(wù)器”等云主機租用服務(wù)以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡單易用、服務(wù)可用性高、性價比高”等特點與優(yōu)勢，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應(yīng)用場景需求。

新聞標(biāo)題：perl使用Mojolicious設(shè)置threads查看設(shè)置參數(shù)-創(chuàng)新互聯(lián)
文章起源：http://bm7419.com/article42/ippec.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)頁設(shè)計公司、用戶體驗、品牌網(wǎng)站建設(shè)、網(wǎng)站內(nèi)鏈、網(wǎng)站制作、企業(yè)建站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)