空间管理您的位置: 51Testing软件测试网 » lgwmlx的个人空间 » 文件

进程管理

上一篇 / 下一篇 2008-11-17 21:45:13 / 个人分类：perl

文件版本: V1.0
开发商: 本站原创
文件来源: 本地
界面语言: 简体中文
授权方式: 免费
运行平台: Win9X/Win2000/WinXP

通过perl直接启动其它程序。

system函数
system "date";       启动unix系统的date命令。
子进程会运行date命令，它将继承perl的标准输入，标准输出和标准错误。
system 'ls -l $HOME';   注意是用单引号，因为$HOME是shell变量，否则，shell就看不到美元符号。表明要替换的符号。
system "long_time_command&";   把长时间运行的程序放在后台。
system 'for i in *; do echo ==$1 ==; cat $i; done';   可以写脚本

避免shell
调用system操作符时带多个参数，此时shell就不会卷入。如：
system "tar","cvf",$aaa,@bbb;   第一个命令是tar，其余的参数会一个一个传递给它。
system的退出状态基于子进程的退出状态。在unix中0表示正常，非0表示出错。
unless (system "date") {   返回0表示成功
   print "we gave you a date,ok!\n";
   }

exec函数
与system差不多，system会生成一个子进程，exec是让perl进程本身去处理所要求的动作。
一般用system就可以了。

环境变量
当你启动一个新进程时，环境变量就被继承下来了。在perl中，通过特殊的%ENV散列得到环境变量，散列中每个键表示一个环境变量。在你的程序刚开始执行时，%ENV就从父进程（通常是shell）继承而来。修改这个散列就改变了环境变量，它又会被新进程继承。$ENV {'PATH'} = "/home/mydir/bin:$ENV{'PATH'}";      设置新的环境变量，增加了一个路径
delete $ENV{"IFS"};                   删除“IFS”这个路径
my $make_result = system "make";           在新环境变量中执行程序

使用反引号捕获输出
当使用system and exec时，所启动命令的输出都被送到perl的标准输出上。有时我们需捕获这些输出。
my $now = `date`;
print "the time is now $now.";       已经有换行符，不用加\n。
与shell差不多。但它把行尾去掉，而perl的输出包含\n。所以要得到同样的效果，需加上chomp操作。

在列表上下文中使用反引号
my $who_text = `who`;   标量上下文，得到一个长字符串。
my @who_lines = `who`;   列表上下文，得到一个按行分开的数据。

文件句柄形式进程
perl可以启动一个处理活动状态的子进程。启动一个并发子进程的语法是把命令当做“文件名”用在open调用中，在命令之前或之后加一个竖线，这是一个“管道”字符，因些，这通常被称为管道打开（piped open）。
open DATE, "date|" or die "cannot pipe from date:$!";
竖线在右边，其标准输出与文件句柄DATE连接，就像shell中的date | your_program。
open MAIL, "|mail merlyn" or die "cannot pipe to mail:$!";
竖线在左边，命令的标准输入文件句柄MAIL连接，就像shell中的your_program | mail。
命令启动后是个独立于perl的进程。

要读取一个为读而打开的文件句柄，我们只需进行普通的读：
my $now = <DATE>;
要想给邮件进程发送数据，一人简单的“带文件句柄的打印”就可以了：
print MAIL "the time is now $now.";

用fork进行深入和复杂的工作
用低级系统调用实现system "date";命令。
defined (my $pid = fork ) or die "cannot fork:$!";
unless ($pid) {
   exec "date";
   die "cannot exec date:$!";
   }
waitpid($pdi.0);

发送和接收信号
向4201发送一个SIGINT。
kill 2, 4201 or die "cannot signal 4201 with SIGINT:$!";
你也可用“INT”替代这里的2，因为2号信号就是SIGINT。

信号0表示，看看我能不能发一个个信号，但我并不想现在发送。因此可用以进程探测。
unless (kill 0,$pid) {
   warn "$pid has gone away!";
   }

用户菜单

标题搜索

日历

数据统计

访问量: 227995
日志数: 58
文件数: 305
书签数: 21
建立时间: 2007-01-31
更新时间: 2009-07-27

进程管理

相关阅读:

用户菜单

我的栏目

标题搜索

日历

我的存档

数据统计

RSS订阅