Perl语言入门（第8版）

进程管理

｜

275

open STDOUT, '>', '/tmp/granite.out';

exec 'bedrock';

如果使用

system

而不是

exec

，

Perl

程序必须傻傻地等另一个程序运行完毕才能跟着

收工，这无疑是在浪费系统资源。

话虽如此，实际上我们很少用到

exec

，一般都是将它和

fork

一起使用，这稍后会介

绍。因此如果吃不准到底该用

system

还是

exec

，就总是用

system

好了，大多情况

下都是稳妥的。

一旦启动了要执行的程序，

Perl

便放手退出，无法再控制它，因此在

exec

调用之后

写的任何代码都无法运行，不过如果启动过程出现错误，那么后续的捕获语句还是可

以继续执行的：

exec 'date';

die "date couldn't run: $!";

用反引号捕获输出结果

无论用

system

还是

exec

，所执行命令的输出都会被重定向到

Perl

的标准输出。有时

候我们感兴趣的是将输出结果捕获成字符串，以便后续进一步处理。要提取该输出信

息，只要用反引号代替单引号或双引号就可以了：

my $now = `date`; #

捕获

date

命令的输出

print "The time is now $now"; #

换行符已经包含在捕获内容中

一般来说，

date

命令能输出长度约为

30

个字符的字符串，其中含有当前的日期与时

间，最后接一个换行符。当我们把

date

放在反引号里时，

Perl

会执行这个

date

命令

并将其标准输出结果以字符串形式捕获。在这个例子中，字符串会被赋值给 ...