|
| |
Perl常用函数四
open
| 语法二： |
open(Filename,"<$filename" |
| 说明： |
这个语法也可以打开一个存在的文件 |
| 范例： |
$filename="/path/cgi.txt";
open(FILE,"<$filename"||die"Cannot open $filename\n";
#下面把全部文件内容都赋给数组@array。
@array=<FILE>;
close(FILE): |
| 语法三： |
open(Filename,">$filename" |
| 说明： |
建立一个新的文件，如果已经存在这个文件，就会覆盖原来的文件，同时建立以后可以使用print
file的方法将数据写入文件。 |
| 范例： |
$filename="/path/cgi.txt";
open(FILE,">$filename"||die"Cannot open $filename\n";
print FILE "this is a test\n";
close(FILE); |
| 语法四： |
open(Filename,">>$filename" |
| 说明： |
数据用附加的方式写入一个文件，如果指定的文件不存在，就建立一个新文件。 |
| 范例： |
$filename="/path/cgi.txt";
open(FILE,">>$filename"||die"Cannot open $filename\n";
print FILE "this is a test\n";
close(FILE); |
| 语法五： |
open(Filehandle,"|Unix Command") |
| 说明： |
把filehandle内的数据输出给Unix使用。 |
| 范例： |
$mailprog="/usr/ucb/mail"；
$who="jcjung@online.sh.cn";
open(FILE,"|mailprog $who")||"Can not Fail!\n";
print FILE "这是一个实验";
close(FILE); |
close
| 指令： |
close |
| 用法： |
close(Filehandle) |
| 说明： |
用open这个函数来打开一个文件之后，一定要用close这个函数把文件关闭 |
| 范例： |
open(Filehandle,"$filename";
close(Filehandle); |
pack
| 指令： |
pack |
| 用法： |
Pack("指定的格式",LIST) |
| 说明： |
Pack这个函数会将一个LIST变成指定的二进制数据格式。在CGI程序分解码过程中，可以用pack函数。是常用函数。 |
| 范例： |
$string=pack("C",65) 此时$string="A";
将65这个ASCII码转换成一个unsigned字符，其中C就是指定要转换成unsigned字符的意思。 |
read
| 指令： |
read |
| 用法： |
read(Filehandle,$string,length)
其中length表示读入字符串的长度 |
| 说明： |
用这个函数把fiehandle中的数据依指定的字符串长度读入之后指派给$string这个变量。在CGI程序解码过程中，如果FROM的传送方式是社定为POST的话，就会将传送的数据社定为标准输入，所以会将数据内容指定给STDIN这个标准输入饿filehandle。而CGI环境变量$ENV{'CONTENT_LENGTH'}就是代表使用者送出数据的长度，因此我们要用read这个函数来取得使用者送出的数据内容。 |
| 范例： |
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}) |
exit
| 指令： |
exit |
| 用法： |
exit |
| 说明： |
退出执行中的程序 |
| 范例： |
print "i love perl\n";
exit; |
回Perl目录
|
