Perl笔记6

第十六章 进程管理 (1) system函数 在Perl中，启动子进程最简单的方法就是system函数 system 'date'; system 'ls -l $HOME'; system "ls -l $HOME"; 后台进程： system "long_running_command with parameters &"; system 'for i in *; do echo == $i ==; cat $i; done'; (2) 避免使用shell system操作符的返回值是根据子进程结束状态来决定的。在Unix里，退出值0代表正常，非零退出值则代表有问题。 use 5.0100; my $return_code = system 'date'; say $return_code; unless (system 'date') { ? ? say "We gave you a date,OK!"; } !system 'rm -rf files_to_delete' or die 'something went wrong'; (3) 环境变量 在Perl中，环境变量可以通过%ENV哈希取得，其中每个键都代表一个环境变量 $ENV{'PATH'} = "/home/jiang/bin:$ENV{'PATH'}"; delete $ENV{'IF'}; my $make_result = system 'make'; (4) exec函数 system函数的所有语法也都适用于exec函数。 system函数会创建子进程，子进程在Perl睡眠期间执行任务，而exec函数却导致Perl进程自己去执行任务。 chdir '/tmp' or die "Cannot chdir /tmp: $!"; exec 'bedrock','-o','args1',@ARGV; 一旦要执行的命令启动后，Perl便放手退出，无法再控制它，因此在exec调用之后写的任何代码都无法运行，不过如果启动过程出现错误， 那么后续语句还是可以继续运行的。 (5) 用反引号捕获输出结果 my $now = `date`; #里面包含了换行符 print "The time is now $now"; 测试： use 5.010; my @functions = qw{ int rand sleep length hex eof exit sqrt umask }; my %about; foreach (@functions) { ? ? $about{$_} = `perldoc -t -f $_`; } foreach (keys %about) { ? ? say "$_: $about{$_}"; } 除了反引号，你还可以使用更为一般化的引起操作符qx(): foreach (@functions) { ? ? $about{$_} = qx(perldoc -t -f $_); } 如果选用单引号作为分隔符的话，可以禁止变量内插。 选用shell进程编号变量$$而不是Perl的时候： my $output = qx'echo $$'; 将标准错误合并到标准输出： my $output_with_errors = ?`frobnitz -enable 2>&1`; my $result = `some_questionable_command arg arg argh < /dev/null`; 这样子shell就会将输入重定向到/dev/null，接着再执行那个交互式命令，这样就算它要求输入，也只会读到文件结束符。 (6) 在列表上下文中使用反引号 my $who_text = `who`; my @who_lines = split /n/,$who_text; 测试： foreach (`who`) { ? ? my ($user,$tty,$date) = /(S+)s+(S+)s+(.*)/; ? ? $ttys{$user} .= "$tty at $daten"; ? ? } (7) 用IPC::System::Simple执行外部进程 IPC::System::Simple模块非Perl自带模块。 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导致的意外情况： systemx 'tar',@dirs; 如果要捕获外部命令的输出，只需把system或systemx改成capture或capturex就可以了，它的作用就好像是反引号一样。 my @output = capturex 'tar',@dirs;