Perl函数中Perl进程控制函数用法解析

本文和大家重点讨论一下Perl进程处理函数的用法，主要包括进程启动函数，进程终止函数和进程控制函数等内容，相信通过本文的学习你对Perl进程处理函数的用法一定会有深刻的认识。

Perl进程处理函数

1、进程启动函数

Perl函数名 eval

调用语法eval(string)

解说将string看作Perl函数名语句执行。

正确执行后，系统变量$@为空串，如果有错误，$@中为错误信息。

例子$print="print(\"hello,world\\n\");";

eval($print);

结果输出hello,world

Perl函数名 system

调用语法system(list)

解说list中第一个元素为程序名，其余为参数。

system启动一个进程运行程序并等待其结束，程序结束后错误代码左移八位成为返回值。

例子@proglist=("echo","hello,world!");

system(@proglist);

结果输出hello,world!

Perl函数名 fork

调用语法procid=fork();

解说创建程序的两个拷贝--父进程和子进程--同时运行。子进程返回零，父进程返回非零
值，此值为子程序的进程ID号。

例子

 
 
 
  
  
  $retval=fork();  
  
  
  if($retval==0){  
  
  
  #thisisthechildprocess  
  
  
  exit;#thisterminatesthechildprocess  
  
  
  }else{  
  
  
  #thisistheparentprocess  
  
  
  }

结果输出无

Perl函数名 pipe

调用语法pipe(infile,outfile);

解说与fork合用，给父进程和子进程提供通信的方式。送到outfile文件变量的信息可以
通过infile文件变量读取。步骤：

1、调用pipe

2、用fork将程序分成父进程和子进程

3、一个进程关掉infile，另一个关掉outfile

例子

 
 
 
  
  
  pipe(INPUT,OUTPUT);  
  
  
  $retval=fork();  
  
  
  if($retval!=0){  
  
  
  #thisistheparentprocess  
  
  
  close(INPUT);  
  
  
   
  
  
  print("Enteralineofinput:\n");  
  
  
  $line=;  
  
  
  printOUTPUT($line);  
  
  
  }else{  
  
  
  #thisisthechildprocess  
  
  
  close(OUTPUT);  
  
  
  $line=;  
  
  
  print($line);  
  
  
  exit(0);  
  
  
  }

结果输出$

program

Enteralineofinput:

Hereisatestline

Perl函数名 exec

调用语法exec(list);

解说与system类似，区别是启动新进程前结束当前程序。常与fork合用，当fork分成两个
进程后，子进程用exec启动另一个程序。

例子

结果输出

Perl函数名 syscall

调用语法syscall(list);

解说调用系统Perl函数名，list第一个元素是系统调用名，其余为参数。

如果参数是数字，就转化成C的整型数(typeint)。否则传递字符串的指针。详见UNIX的帮助Perl函数名文档。

使用syscall必须包含文件syscall.pl，即：

require("syscall.ph");

例子

结果输出

2、进程终止函数

Perl函数名 die

调用语法die(message);

解说终止程序并向STDERR输出错误信息。message可以为字符串或列表。如果最后一个参
数不包含换行符，则程序文件名和行号也被输出。

例子die("Cannotopeninputfile");

结果输出Cannotopeninputfileatmyprogline6.

Perl函数名 warn

调用语法warn(message);

解说与die类似，区别是不终止程序。

例子warn("Danger!Danger!\n");

结果输出Danger!Danger!

Perl函数名 exit

调用语法exit(retcode);

解说终止程序并指定返回值。

例子exit(2);

结果输出无

Perl函数名 kill

调用语法kill(signal,proclist);

解说给一组进程发送信号。

signal是发送的数字信号，9为杀掉进程。

proclist是进程ID列表。详见kill的UNIX帮助。

例子

结果输出 #p#

3、进程控制函数

Perl函数名 sleep

调用语法sleep(time);

解说将程序暂停一段时间。time是停止的秒数。返回值为实际停止的秒数。

例子sleep(5);

结果输出无

Perl函数名 wait

调用语法procid=wait();

解说暂停程序执行，等待子进程终止。

不需要参数，返回值为子进程ID，如果没有子进程，返回-1。

例子

结果输出

Perl函数名 waitpid

调用语法waitpid(procid,waitflag);

解说暂停程序执行，等待特定的子进程终止。procid为等待的进程ID

例子

 
 
 
  
  
  $procid=fork();  
  
  
  if($procid==0){  
  
  
  #thisisthechildprocess  
  
  
  print("thislineisprintedfirst\n");  
  
  
  exit(0);  
  
  
   
  
  
  }else{  
  
  
  #thisistheparentprocess  
  
  
  waitpid($procid,0);  
  
  
  print("thislineisprintedlast\n");  
  
  
  }

结果输出$program

thislineisprintedfirst

thislineisprintedlast

$ #p#

4、其它控制函数

Perl函数名 caller

调用语法subinfo=caller();

解说返回调用者的程序名和行号，用于Perl函数名Debugger。

返回值为三元素的列表：

1、调用处的包名

2、调用者文件名

3、调用处的行号

例子

结果输出

Perl函数名 chroot

调用语法chroot(dir);

解说改变程序的根目录，详见chroot帮助。

例子

结果输出

Perl函数名 local

调用语法local($variable);
解说在语句块(由大括号包围的语句集合)中定义局域变量，仅在此语句块中起作用，对其
的改变不对块外同名变量造成影响。

千万不要在循环中使用，否则每次循环都定义一个新的局域变量！

例子

结果输出

Perl函数名 times

调用语法timelist=times

解说返回该程序及所有子进程消耗的工作时间。

返回值为四个浮点数的列表：

1、程序耗用的用户时间

2、程序耗用的系统时间

3、子进程耗用的用户时间

4、子进程耗用的系统时间

例子

结果输出

新闻名称：Perl函数中Perl进程控制函数用法解析
标题网址：http://www.hantingmc.com/qtweb/news5/344455.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容