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

开发 架构
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号。

例子

  1. $retval=fork();  
  2. if($retval==0){  
  3. #thisisthechildprocess  
  4. exit;#thisterminatesthechildprocess  
  5. }else{  
  6. #thisistheparentprocess  
  7. }  
  8.  

 

结果输出无

Perl函数名 pipe

调用语法pipe(infile,outfile);

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

1、调用pipe

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

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

例子

  1. pipe(INPUT,OUTPUT);  
  2. $retval=fork();  
  3. if($retval!=0){  
  4. #thisistheparentprocess  
  5. close(INPUT);  
  6.  
  7. print("Enteralineofinput:\n");  
  8. $line=<STDIN>;  
  9. printOUTPUT($line);  
  10. }else{  
  11. #thisisthechildprocess  
  12. close(OUTPUT);  
  13. $line=<INPUT>;  
  14. print($line);  
  15. exit(0);  
  16. }  
  17.  

 

结果输出$

program

Enteralineofinput:

Hereisatestline

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

例子

  1. $procid=fork();  
  2. if($procid==0){  
  3. #thisisthechildprocess  
  4. print("thislineisprintedfirst\n");  
  5. exit(0);  
  6.  
  7. }else{  
  8. #thisistheparentprocess  
  9. waitpid($procid,0);  
  10. print("thislineisprintedlast\n");  
  11. }  
  12.  

 结果输出$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、子进程耗用的系统时间

例子

结果输出

【编辑推荐】

  1. Perl语言中Perl函数用法
  2. Perl函数手册专家指导
  3. 技术分享 详解Perl函数的参数接收方法
  4. Perl基础 Perl数组学习指南
  5. Perl函数集-数组和Perl列表函数解析
责任编辑:佚名 来源: csdn.net
相关推荐

2010-07-19 14:45:07

Perl进程控制函数

2010-07-19 14:37:01

Perl进程启动函数

2010-07-16 16:56:01

Perl构造函数

2010-07-19 14:13:41

Perl函数

2010-07-16 17:04:38

Perl方法

2010-07-19 10:01:57

Perl函数

2010-07-23 15:59:33

Perl encode

2010-07-19 13:49:17

Perl函数

2010-07-15 10:22:23

Perl控制结构

2010-07-20 09:23:30

Perl构造函数

2010-07-19 15:01:26

Perl数学函数

2010-07-15 15:54:10

Perl守护进程

2010-07-15 13:50:16

Perl目录操作函数

2010-07-23 13:53:33

Perl grep函数

2010-07-19 10:11:58

Perl流程控制语句

2010-07-21 09:57:46

Perl文件

2010-07-21 10:18:41

Perl map函数

2010-07-21 14:18:27

Perl函数

2010-07-13 09:14:21

Perl时间处理函数

2010-07-21 10:10:50

Perl split函
点赞
收藏

51CTO技术栈公众号