Perl 函数集小结

一、进程处理函数

1、进程启动函数

函数名 eval

调用语法 eval(string)
解说 将string看作Perl语句执行。
正确执行后，系统变量$@为空串，如果有错误，$@中为错误信息。
例子 $print = "print (/"hello,world//n/");";
eval ($print);
结果输出 hello, world

函数名 system

调用语法 system(list)
解说 list中第一个元素为程序名，其余为参数。
system启动一个进程运行程序并等待其结束，程序结束后错误代码左移八位成为返回值。

例子 @proglist = ("echo", "hello,world!");
system(@proglist);
结果输出 hello, world!

函数名 fork

调用语法 procid = fork();
解说 创建程序的两个拷贝--父进程和子进程--同时运行。子进程返回零，父进程返回非零
值，此值为子程序的进程ID号。
例子 $retval = fork();
if ($retval == 0) {
  # this is the child process
  exit; # this terminates the child process
} else {
  # this is the parent process
}
结果输出 无

函数名 pipe

调用语法 pipe (infile, outfile);
解说 与fork合用，给父进程和子进程提供通信的方式。送到outfile文件变量的信息可以
通过infile文件变量读取。步骤：
1、调用pipe
2、用fork将程序分成父进程和子进程
3、一个进程关掉infile，另一个关掉outfile
例子 pipe (INPUT, OUTPUT);
$retval = fork();
if ($retval != 0) {
  # this is the parent process
  close (INPUT);
  print ("Enter a line of input:/n");
  $line = <STDIN>;
  print OUTPUT ($line);
} else {
  # this is the child process
  close (OUTPUT);
  $line = <INPUT>;
  print ($line);
  exit (0);
}

结果输出 $
program
Enter a line of input:
Here is a test line
Here is a test line
$

函数名 exec

调用语法 exec (list);
解说 与system类似，区别是启动新进程前结束当前程序。常与fork合用，当fork分成两个
进程后，子进程用exec启动另一个程序。
例子   
结果输出  

函数名 syscall

调用语法 syscall (list);
解说 调用系统函数，list第一个元素是系统调用名，其余为参数。
如果参数是数字，就转化成C的整型数(type int)。否则传递字符串的指针。详见UNIX的帮助Perl文档。
使用syscall必须包含文件syscall.pl，即：
require ("syscall.ph"); 
例子  
结果输出  
2、进程终止函数

函数名 die

调用语法 die (message);
解说 终止程序并向STDERR输出错误信息。message可以为字符串或列表。如果最后一个参
数不包含换行符，则程序文件名和行号也被输出。
例子 die ("Cannot open input file");
结果输出 Cannot open input file at myprog line 6.