Perl语言入门笔记 第十六章 进程管理

=pod第十六章  进程管理身为程序员最棒的一面，就是能运行别人的程序，不必自己动手去写。在perl里有一句话叫 “办法不止一种”system函数：在perl中，启动子进程最简单的方法是用system函数，例如从perl调用Unix的date命令，需要告诉system要运行的外部程序的名字：system 'date';date运行时，创建了一个子进程system 'ls -l $HOME';利用shell来启动后台进程，system "long_running_command with parameters &";&使该条命令后台运行，此处可以用于需要长时间运行的程序system 'for i in *; do echo == $i ==; cat $i; done';该条指令会将当前目录中每个文件的文件名及其内容显示出来。避免使用Shell:system操作符也可以用一个以上的参数来调用，如此一来，不管你给的文本有多复杂，都不会用到shell?????，做法如下：my $tarfile = 'something*wicked.tar';my @dirs = qw(fred|flintstone <barney&rubble> betty);system 'tar', 'cvf', $tarfile, @dirs;system操作符的返回值是根据子进程的结束状态来决定的，在unix里，退出0代表正常，非零退出值则代表有问题：unless (system 'date'){#返回0的话就代表执行成功print "We gave you a date, ok!\n";}环境变量：现在需要运行系统的make程序，进而运行其他程序，并且想以你的私有目录作为寻找命令的首选位置，假如还要禁用IFS环境变量，以免make或者其后的命令做出不正常的举动，like this:$ENV{'PATH'} = "/home/rootbeer/bin:$ENV{'PATH'}";delete $ENV{'IFS'};my $make_result = system 'make';修改从父进程继承的环境变量并不能影响shell或者其他父进程。exec函数：exec函数导致perl进程自己去执行任务，例如：要运行/tmp目录下的bedrock命令并带上-o args以及程序本身所调用的参数：chdir '/tmp' or die "Cannot chdir /tmp:$!";exec 'bedrock', '-o', 'args1', @ARGV;perl程序的主要功能是为另一个程序的运行设定运行环境，你可以预先修改环境变量，修改当前的工作目录，修改默认的文件句柄等等。$ENV{PATH} = '/bin:/usr/bin';$ENV{DEBUG} = 1;$ENV{ROCK} = 'granite';chdir '/user/fred';open STDOUT, '>', '/tmp/granite.out';exec 'bedrock';用反引号捕获输出结果：无论用system还是exc，所执行命令的输出都会送往perl的标准输出，有时候我们感兴趣的是将输出结果捕获成字符串，以便后续处理，只要用反引号代替单引号或双引号就可以了。my $now = `date`;foreach (@function){$about{$_} = `perldoc -t -f $_`;}qx也可以使用于捕获输出变量，主要是为了防止输出特殊字符qx'echo $$';不捕获输出时能不用反引号就不用反引号，可以使用system和exec标准输出和错误输出可以通过perl的合并信息，来输出如：my $output_with_errors = `frobnitz -enable 2>&1`;我们日常执行的命令大豆不会使用标准输入，所以没有这方面的问题，但是，如果date命令询问你要使用的时区(正如我们之前假设的)， 这样就会有问题，因为提示文字"which time zone"会被送至标准输出，成为被捕获内容的一部分，然后date会试着从标准输入读取数据，由于用户根本看不到提示文字，所以他不知道该输入数据！没多久，用户就会打电话给你，说你的程序卡住了因此，请勿使用会读取标准输入的命令，如果你不太确定它是否会从标准输入读取数据，请将标准输入重定向为从/dev/null读取数据，如下所示：my $result = `some_questionable_command arg arg argh </dev/null`;这样，子shell就会将输入重定向到/dev/null，接着再执行那个交互式命令，这样就算它要求输入，也只会读到文件结束符。从列表上下文中使用反引号：如果命令会输出很多行，那么在标量上下文中使用反引号会得到一个很长的字符串，其中包含换行符，不过，如果是在列表上下文使用同样的反引号，则会返回输出字符串按行拆分的列表。比如，unix下的who指令：merlyntty/42dec 7 19:41rootbeer consoledec 2 14:35rootbeertty/12dec 6 23:00标量上下文：my $who_text = `who`;my @who_lines = split /\n/, $who_test; #自行拆开列表上下文：自动拆分成多行my @who_lines = `who`;=号是正则表达式，=~是绑定操作符     用IPC::System::Simple执行外部进程：IPC::System::Simple不是perl自带的模块，需要从CPAN下载可以代替system函数，但是执行更加健壮use IPC::System::Simple qw(system);my $tarfile = 'something*wicked.tar';my @dirs = qw(fred|flintstone<barney&rubble>betty);system 'tar', 'cvf', $tarfile, @dirs;他提供了一个systemx函数，在执行外部命令时不会通过shell调用，所以不会碰到shell导致意外的情况。如果要捕获外部命令的输出，只需要办system或systemx改成capture或者是capturex就可以了，他们的作用就好像使用反引号一样。my @output = capturex 'tar', 'cvf', $tarfile, @dirs;好模块。。。。。。。。。但是shell里面的命令调不到呀通过文件句柄执行外部进程：要启发并发运行的子进程，请将命令放在open调用的文件名的部分，并且在它的前面或后面加上竖线，也就是管道符号，因此，有人将这种调用方式就做“管道打开”，在两个参数的行驶中，管道符号安放在要执行的命令的开头或者结尾：open DATE, 'date|' or die "Cannot pipe from date:$!"; open MAIL, '|mail merlyn' or die "Cannot pipe to mail:$!"; '|'在指令的左边或右边代表输出还是输入 读取文件句柄：-|写入文件句柄：|-句柄需要关闭如果子进程不时有数据要送给父进程的话，就必须用管道了反引号和|-的输出结果的先后顺序用fork进行深入和复杂的工作：system 'date';用fork可写成：defined(my $pid = fork) or die "Cannot fork:$!";unless($pid){#能运行到这里的是子进程exec 'date';die "Cannot exec date:$!";}waitpid($pid, 0); #能运行到这里的是父进程发送及接收信号：kill 2, 4201 or die "Cannot signal 4201 with SIGINT:$!";or:kill 'INT', 4201 or die "Cannot signal 4201 with SIGINT: $!";or:kill INT => 4201 or die "Cannot signal 4201 with SIGINT: $!";判断信号是否还存在，只是判断，并不是杀死unless(kill 0,$pid){warn "$pid has gone away!";}清理垃圾的函数：my $temp_directory = "/tmp/myprog.$$";#在这个目录下创建文件mkdir $temp_directory, 0700 or die "Cannot create $temp_directory: $!";sub clean_up{unlink glob "$temp_directory/*";rmdir $temp_directory;}sub my_int_handler{&clean_up();die "interrupted, exiting...\n";}$SIG{'INT'} = 'my_int_handler';......&clean_up(); #。。。。。真正清理的部分只是终止当前程序，返回原来程序，只要在信号处理子程序中设置一个标记，然后再每行处理结束时检查它既可：my $int_count = 0;sub my_int_handler{$int_count++};$SIG{'INT'} = 'my_int_handler';...;while(<SOMEFILE>){...;#一般要花几秒时间来执行的操作if($int_count){#看到进来的中断信号了print "[processing interrupted...]\n";last;}}\N：表示除换行符之外的所有字符=cut