Perl常用系统函数

应用了。此外，也可以用下面这一行指令在UNIX系统下取得系统的时间。为了避免错误发生，最好用绝对路径的方法来取得系统时间，如果绝对路径不清楚的话可以用"whichdata"这个指令来得知。最后要提字符的话，就不能正确执行系统的程序了。$data=''/usr/bin/data'';而在perl5版本中，也可以用下面这一行指令来取得系统时间。$data=localtime(time);



--------------------------------------------------------------------------------


指令：die
语法：dieLIST
说明：会把LIST字符串显示出来，并退出程序。常常和$!这个代表错误信息变量一起使用。
示例：open(FILE,"$filename")||die"不能打开文件$!n;如果打开文件失败的话，就会显示出错误的信息，之后再退出程序。



--------------------------------------------------------------------------------


指令：open
语法1：open(filehandle,"$filename")其中$filename是一个指定打开的文件名。
说明：这是一个很常用的函数，可用于文件的打开(readonly)。在CGI程序设计中常常会打开一个文件来读取数据，所以笔者会详加说明这一个函数相关用法。这个filehandle可把它看作在I(INPUT)/O(OUTPUT)之间的一个桥梁，可以利用FILEHANDLE来作出数据读入写出的动作。开始可用OPEN这个函数来打开一个指定的文件，接下来可以用示例：
$filename="usr/abc.txt";
open(FILE,"$filename")||die"不能打开文件$filenamen;#将while($line={
print"$line";
}
close(file);就会把abc.txt这个文件的内容显示出来。

语法2：open(filehandle,"＜$filename")
说明：这个语法也可以打开一个存在的文件(readonly)。
示例：
$filesname="usr/abc.txt";
open(file,"＜$filename")||die"不能打开文件$filenamen";
@array=print"@array";也会把abc.TXT这个文件的内容显示出来。

语法3：open(filehandle,"＞$filename")
说明：建立一个新的文件(writeonly),如果已经存在这个文件了，就会把旧文件名覆盖掉。并可用printfilehandle的方式将数据到所打开的文件中。
示例：
$filename="/usr/abc.txt";
open(file,"＞$filename")||die"不能打开文件$filenamen;
printfile"thisisanewline1n;#n是换行字符
printfile"thisisanewline2n;
close(file);会打数据存在一个新文件中。

语法4：open(filehandle,"＞＞$filename")
说明：数据用附加的方式定入一文件(writeonly)，如果指定的文件名不存在的话就会建立一个新的文件。
示例：
$filename="/path/abc.txt";
open(file,"＞＞$filename")||die"不能打开文件$filenamen";
printfile"thisisanewline1n";
printfile"thisisanewline2n";
close(file);
会打数据附加(append)到一个文件(abc.txt)中。

语法5：open(filehandle,"|unixcommand")
说明：就会把在filehandle的数据输入给unix的指令来作处理。
示例：
$mailprog="/usr/ucb/mail";#unix系统上的寄信程序(一定要加绝对路径)
$who="mqingyi@126.com";
$open(file,"|$mailprog$who")||die"打开失败n";
printfile"Iloveyou!n";
printfile"Iwanttoseeyou.n";
close(file);
就会通过unix系统mail的程序，将FILE这个FILEHANDLE的数据内容寄给$who这个变量所指定的收信人。我们可以利用open这个函数来设计一个来信批评CGI应用程序，在本书中的下一章中会有详细的介绍。



--------------------------------------------------------------------------------


指令：close
用法：close(filehandle)
说明：用open这个函数来打开一个filehandle之后，一定要用close批这个函数把所打开的filehandle关闭。
示例：
open(filehandle,"$filename");
close(filehandle);



--------------------------------------------------------------------------------


指令：pack
语法：pack("指定的格式",lis