| 订阅 | 在线投稿
分享
 
 
当前位置: 王朝网络 >> perl >> perl yu yan bian cheng shi li - duo jin cheng pian

perl yu yan bian cheng shi li - duo jin cheng pian

2008-05-18 21:55:39 编辑來源:互联网 评论
 
 
 
本文为【perl语言编程实例-多进程篇】的拼音翻译版
  zuo zhe :horsley
  perl yu yan bian cheng shi li - duo jin cheng pian
  perl yu yan shi yi zhong fei chang qiang da de jiao ben yu yan , qi ying yong bian ji xi tong wei hu ,CGI, shu ju ku bian cheng 。
  yi xia shi wo yu dao de yi ge ju ti wen ti , ying yong perl huo de yuan man jie jue 。
  wen ti ti chu :
  mou shu ju ku ying yong 。 xu yao jian suo yi pi shu ju (A biao , shu ju liang 12 wan zuo you )。 dui gai pi shu ju
  jiang jin xing zhu yi gai dui , qi jian jiang guan lian san ge qian wan ji de biao (C,D,E biao , fen bie you jin yi tiao shu ju ),
  bing jiang jian suo zhuang tai cha ru yi zhang xin biao (F)。
  chuan tong jie jue fang an :
  bian xie cun chu guo cheng 。 da kai yi ge cursor, dui A biao bian li , zhu yi jian suo C,D,E biao 。
  pan duan zhuang tai xie ru xin biao 。 bian cheng guo cheng shi fen jian dan , shun li wan cheng 。 dan zhi xing shi xiao lv di xia , hao shi zai
  8 xiao shi zuo you , bu neng man zu yao qiu 。
  fen xi :
  C,D,E biao jian you ji qi wan bei de suo yin 。 dui dan tiao shu ju jian suo ji qi kuai su 。 tong shi zhi xing shi zhu ji CPU
  ,
  nei cun deng zi yuan shi fen kong xian 。 cha xun dan tiao ji lu hao shi :8×3600/12 wan =0.24 miao , ye shi zai he li de
  fan wei 。
  tong shi zhu ji shu ju ku zai ye wu gao feng qi shi ke yi zhi chi 500-600 yong hu tong shi deng lu (telnet fang shi )。
  yi shang
  shuo ming xing neng ping jing bu zai zhu ji , shu ju ku shang 。
  jie lun : yi shang suo you dou he qing he li , cai yong dan jin cheng fang shi wu fa jin yi bu ti gao xing neng 。 wei ti gao su du ,
  zhi neng
  cai yong duo jin cheng 。
  kuai su gou zao yuan xing :
  yuan xing yi :
  #!/usr/bin/perl
  my $maxchild=20;
  foreach $item (1..500) {
  while ( `ps -ef|grep $0|wc -l` > $maxchild) { select undef,undef,undef,0.1; };
  if ($PID=fork()){
  print "Starting Sub_Process:$PID\n";
  } else {
  print "I will handle data:$item\n";
  sleep 1;
  exit 1;
  };
  }
  zhi xing yi shang , zheng chang , zi jin cheng kong zhi zai 20。
  yi shang shu jiao ben wei ji chu , tian jia shu ju ku bu fen :
  #!/usr/bin/perl
  use DBI;
  my $dbh=DBI->connect(...);
  my $sth=$dbh->prepare(qq/select * from A/);
  $sth->execute();
  $sth->bind_column(undef,.....);
  while ($sth->fetch()) {
  while ( `ps -ef|grep $0|wc -l` > $maxchild) { select undef,undef,undef,0.1; };
  if ($PID=fork()) {
  print "Starting Sub_Process:$PID\n";
  } else {
  query(B,C,D); # zhi xing shu ju ku cao zuo
  insert(E);
  exit 1;
  }
  }
  $sth->finish();
  $dbh->disconnect();
  que bao wu yu fa cuo wu , zhi xing 。 chu li yi liang tiao shu ju hou jiao ben bao cuo , zhong duan 。 ju ti cuo wu lue 。
  fen xi : cheng xu kuang jia mei cuo , dan shi zai fork zi jin cheng shi ,$dbh tong shi bei zi jin cheng ji cheng , dao zhi gai shu ju
  ku lian jie fan fu shi yong 。
  you yu shu ju ku di ceng de mou zhong yuan yin , dui gai zhong cao zuo shi bu yuan xu de 。 jie lun : yi shang jian dan de duo jin cheng fang
  shi bu ke xing 。 shu ju ku
  lian jie bu fen bi xu tong fork fen li 。
  ######################################
  kao lv hen jiu , she ji ru xia yuan xing : jiang da kai A biao de cursor dan du ti chu , jie guo chuan gei ling wai yi ge jin cheng
  。
  12 wan shu ju jiao da , zuo wei shen shu chuan di si hu bu tuo , kao lv li yong guan dao tong xin 。
  yuan xing er :
  ############################
  fen cheng getdata,setdata liang ge cheng xu 。 shou xian jian li guan dao : mknod data.pipe p
  cat getdata:
  #!/usr/bin/perl
  use DBI;
  open(DATAPIPE,">./data.pipe") or die "$!\n";
  my $dbh=DBI->connect(...);
  my $sth=$dbh->prepare(qq/select * from A/);
  $sth->execute();
  $sth->bind_column(undef,.....);
  while ($sth->fetch()) {
  print DATAPIPE data.....;
  }
  close(DATAPIPE);
  ######################
  cat setdata:
  #!/usr/bin/perl
  use DBI;
  open(DATAPIPE,"<./data.pipe") or die "$!\n";
  my $pipecount=0;
  my $maxlines=2000;
  my @lines=();
  while($record=<DATAPIPE>) {
  $pipecount++;
  push @lines,$record;
  unless ($pipecount % $maxlines) {
  if ($PID=fork()){
  print "Starting Sub_Process:$PID\n";
  @lines=();
  }else{
  my $dbh=DBI->connect(...);
  foreach (@lines) {
  handle_data($_);
  }
  $dbh->disconnect();
  exit 1;
  }
  }
  }
  my $dbh=DBI->connect(...);
  foreach (@lines) {
  handle_data($_);
  }
  $dbh->disconnect();
  yi shang jiao ben yun xing zheng chang , zhi xing shi qi dong :12 wan /$maxlines= 60 ge zi jin cheng 。
  chu li wan suo you shu ju hao shi zai 10 fen zhong zuo you , xiao lv ti gao ji shi bei 。
  jiao ben zhi xing fang shi :./getdata&./setdata【原文】【汉音对照
 
 
 
 
 
 
 
 
 
日版宠物情人插曲《Winding Road》歌词

日版宠物情人2017的插曲,很带节奏感,日语的,女生唱的。 最后听见是在第8集的时候女主手割伤了,然后男主用嘴帮她吸了一下,插曲就出来了。 歌手:Def...

兄弟共妻,我成了他们夜里的美食

老钟家的两个儿子很特别,就是跟其他的人不太一样,魔一般的执着。兄弟俩都到了要结婚的年龄了,不管自家老爹怎么磨破嘴皮子,兄弟俩说不娶就不娶,老父母为兄弟两操碎了心...

如何磨出破洞牛仔裤?牛仔裤怎么剪破洞?

把牛仔裤磨出有线的破洞 1、具体工具就是磨脚石,下面垫一个硬物,然后用磨脚石一直磨一直磨,到把那块磨薄了,用手撕开就好了。出来的洞啊很自然的。需要猫须的话调几...

我就是扫描下图得到了敬业福和爱国福

先来看下敬业福和爱国福 今年春节,支付宝再次推出了“五福红包”活动,表示要“把欠大家的敬业福都还给大家”。 今天该活动正式启动,和去年一样,需要收集“五福”...

冰箱异味产生的原因和臭味去除的方法

有时候我们打开冰箱就会闻到一股异味,冰箱里的这种异味是因为一些物质发出的气味的混合体,闻起来让人恶心。 产生这些异味的主要原因有以下几点。 1、很多人有这种习...

 
 
   zuo zhe :horsley   perl yu yan bian cheng shi li - duo jin cheng pian   perl yu yan shi yi zhong fei chang qiang da de jiao ben yu yan , qi ying yong bian ji xi tong wei hu ,CGI, shu ju ku bian cheng 。    yi xia shi wo yu dao de yi ge ju ti wen ti , ying yong perl huo de yuan man jie jue 。    wen ti ti chu :    mou shu ju ku ying yong 。 xu yao jian suo yi pi shu ju (A biao , shu ju liang 12 wan zuo you )。 dui gai pi shu ju    jiang jin xing zhu yi gai dui , qi jian jiang guan lian san ge qian wan ji de biao (C,D,E biao , fen bie you jin yi tiao shu ju ),    bing jiang jian suo zhuang tai cha ru yi zhang xin biao (F)。    chuan tong jie jue fang an :    bian xie cun chu guo cheng 。 da kai yi ge cursor, dui A biao bian li , zhu yi jian suo C,D,E biao 。    pan duan zhuang tai xie ru xin biao 。 bian cheng guo cheng shi fen jian dan , shun li wan cheng 。 dan zhi xing shi xiao lv di xia , hao shi zai   8 xiao shi zuo you , bu neng man zu yao qiu 。    fen xi :   C,D,E biao jian you ji qi wan bei de suo yin 。 dui dan tiao shu ju jian suo ji qi kuai su 。 tong shi zhi xing shi zhu ji CPU   ,    nei cun deng zi yuan shi fen kong xian 。 cha xun dan tiao ji lu hao shi :8×3600/12 wan =0.24 miao , ye shi zai he li de    fan wei 。    tong shi zhu ji shu ju ku zai ye wu gao feng qi shi ke yi zhi chi 500-600 yong hu tong shi deng lu (telnet fang shi )。    yi shang    shuo ming xing neng ping jing bu zai zhu ji , shu ju ku shang 。    jie lun : yi shang suo you dou he qing he li , cai yong dan jin cheng fang shi wu fa jin yi bu ti gao xing neng 。 wei ti gao su du ,    zhi neng    cai yong duo jin cheng 。    kuai su gou zao yuan xing :    yuan xing yi :   #!/usr/bin/perl   my $maxchild=20;   foreach $item (1..500) {   while ( `ps -ef|grep $0|wc -l` > $maxchild) { select undef,undef,undef,0.1; };   if ($PID=fork()){   print "Starting Sub_Process:$PID\n";   } else {   print "I will handle data:$item\n";   sleep 1;   exit 1;   };   }    zhi xing yi shang , zheng chang , zi jin cheng kong zhi zai 20。    yi shang shu jiao ben wei ji chu , tian jia shu ju ku bu fen :   #!/usr/bin/perl   use DBI;   my $dbh=DBI->connect(...);   my $sth=$dbh->prepare(qq/select * from A/);   $sth->execute();   $sth->bind_column(undef,.....);   while ($sth->fetch()) {   while ( `ps -ef|grep $0|wc -l` > $maxchild) { select undef,undef,undef,0.1; };   if ($PID=fork()) {   print "Starting Sub_Process:$PID\n";   } else {   query(B,C,D); # zhi xing shu ju ku cao zuo   insert(E);   exit 1;   }   }   $sth->finish();   $dbh->disconnect();    que bao wu yu fa cuo wu , zhi xing 。 chu li yi liang tiao shu ju hou jiao ben bao cuo , zhong duan 。 ju ti cuo wu lue 。    fen xi : cheng xu kuang jia mei cuo , dan shi zai fork zi jin cheng shi ,$dbh tong shi bei zi jin cheng ji cheng , dao zhi gai shu ju    ku lian jie fan fu shi yong 。    you yu shu ju ku di ceng de mou zhong yuan yin , dui gai zhong cao zuo shi bu yuan xu de 。 jie lun : yi shang jian dan de duo jin cheng fang    shi bu ke xing 。 shu ju ku    lian jie bu fen bi xu tong fork fen li 。   ######################################    kao lv hen jiu , she ji ru xia yuan xing : jiang da kai A biao de cursor dan du ti chu , jie guo chuan gei ling wai yi ge jin cheng   。   12 wan shu ju jiao da , zuo wei shen shu chuan di si hu bu tuo , kao lv li yong guan dao tong xin 。    yuan xing er :   ############################    fen cheng getdata,setdata liang ge cheng xu 。 shou xian jian li guan dao : mknod data.pipe p   cat getdata:   #!/usr/bin/perl   use DBI;   open(DATAPIPE,">./data.pipe") or die "$!\n";   my $dbh=DBI->connect(...);   my $sth=$dbh->prepare(qq/select * from A/);   $sth->execute();   $sth->bind_column(undef,.....);   while ($sth->fetch()) {   print DATAPIPE data.....;   }   close(DATAPIPE);   ######################   cat setdata:   #!/usr/bin/perl   use DBI;   open(DATAPIPE,"<./data.pipe") or die "$!\n";   my $pipecount=0;   my $maxlines=2000;   my @lines=();   while($record=<DATAPIPE>) {   $pipecount++;   push @lines,$record;   unless ($pipecount % $maxlines) {   if ($PID=fork()){   print "Starting Sub_Process:$PID\n";   @lines=();   }else{   my $dbh=DBI->connect(...);   foreach (@lines) {   handle_data($_);   }   $dbh->disconnect();   exit 1;   }   }   }   my $dbh=DBI->connect(...);   foreach (@lines) {   handle_data($_);   }   $dbh->disconnect();    yi shang jiao ben yun xing zheng chang , zhi xing shi qi dong :12 wan /$maxlines= 60 ge zi jin cheng 。    chu li wan suo you shu ju hao shi zai 10 fen zhong zuo you , xiao lv ti gao ji shi bei 。    jiao ben zhi xing fang shi :./getdata&./setdata
󰈣󰈤
  免责声明:本文仅代表作者个人观点,与王朝网络无关。王朝网络登载此文出于传递更多信息之目的,并不意味着赞同其观点或证实其描述,其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
时尚秀气模特裴裴(8)
时尚秀气模特裴裴(7)
时尚秀气模特裴裴(6)
时尚秀气模特裴裴(5)
白墙黑瓦
广州东郊[原创]
八美至丹巴的东谷天然盆景
不一样的
 
>>返回首页<<
 
 
 为你推荐
 
 
 
 转载本文
 UBB代码 HTML代码
复制到剪贴板...
 
 热帖排行
 
 
 
 
 
©2005- 王朝网络 版权所有