注:本所讲的函数多数使用了UNIX操作系统的特性.在非UNIX系统中,一些函数可能没有定义或有不同的工作方式.使用时请查看Perl联机文档.
一.文件操作
1.打开文件
用open函数可将文件句柄与某文件联系起来,提供访问文件的接口,即打开文件.
语法为:
open(FILEVAR, "filepath");
filepath可以有如下三种模式:
"filepath" 以只读模式打开文件.
">filepath" 以写模式打开文件.
">>filepath" 以追加模式打开文件,写和追加的区别在于写模式将原文件覆盖,而追加模式则在文件末尾处添加内容.
"+>filepath" 以读和写方式打开文件.
"+>>filepath" 以读和追加方式打开文件.
open的常见用法如下:
if (open(MYFILE, "myfile"))
{
# here's what to do if the file opened successfully
}
当文件打开失败时结束程序
unless (open (MYFILE, "file1"))
{
die ("cannot open input file file1\n");
}
亦可用逻辑或操作符表示如下:
open (MYFILE, "file1") || die ("Could not open file");
2.打开管道
用open函数也可像命令行一样,打开和使用管道.
语法为:
open(MYVAR, "mode");
mode有如下两种模式:
"|command" 表示对MYVAR的输出相当于对command的输入.
"command|" 表示command的输出作为对MYVAR的输入.
例如:
open(FILE1, "who|") or die("Could not open file.\n");
while ($line = )
{
print $line;
}
3.文件重定向
许多UNIX shell可以把标准输出文件(STDOUT)和标准错误文件(STDERR)都重定向到同一个文件.
例如在BASH中,命令`$ foo > file1 2>&1`把输出到标准输出和标准错误的内容存贮到文件file1中.
用open函数可以实现文件重定向.
如以上命令可以用如下命令实现:
open (STDOUT, ">file1") || die ("open STDOUT failed");
open (STDERR, ">&STDOUT") || die ("open STDERR failed");
4.读取文件
语句$line = ;从文件中读取一行数据存储到简单变量$line中并把文件指针向后移动一行.
语句@array = ;把文件的全部内容读入数组@array,文件的每一行(含回车符)为@array的一个元素.
注:为标准输入文件,通常为键盘输入,不需要打开.
例如:
open(FILE1, "testfile") or die("Could not open file.\n");
@line = ;
foreach $message (@line)
{
print $message;
}
此外perl还提供以下几个系统读函数.
函数read
调用语法:
read (filevar, result, length, skipval);
read函数设计得与UNIX的fread函数等效,可以读取任意长度的字符存入一个简单变量.
filevar表示文件变量
result表示存贮结果的简单变量
length表示读取的字节数
skipval(可选项),指定读文件之前跳过的字节数.
返回值为实际读取的字节数,如果已到了文件末尾,则返回零.如果出错,则返回空串.
函数sysread
调用语法:
sysread (filevar, result, length, skipval);
更快的读取数据,与UNIX函数read等效,参数与read相同.
函数getc(读取单个字符)
调用语法:
$char = getc (infile);
从文件中读取单个字符。
函数binmode(读取二进制文件)
调用语法:
binmode (filevar);
当你的系统(如类DOS系统)对文本文件和二进制文件有所区别时使用.必须在打开文件后,读取文件前使用.
5.写入文件
写入文件通常用print,printf和write这三个函数.
print是这三个函数中最简单的,它向指定的文件输出,如果未指定,则输出到当前缺省文件中.
如:
print ("Hello, there!\n");
print OUTFILE ("Hello, there!\n");
第一句输出到当前缺省文件中,若未调用select,则为STDOUT.
第二句输出到由文件变量OUTFILE指定的文件中.
printf函数先格式化字符串再输出到指定文件或当前缺省文件中.
如:
printf OUTFILE ("you owe me %8.2f", $owing);
此语句取出变量$owing的值并替换掉串中的%8.2f,%8.2f是域格式的例子,把$owing的值看作浮点数.
printf的域格式表如下:
%c 单个字符
%d 十进制整数
%e 科学计数法形式的浮点数
%f 普通形式(定点)浮点数
%g 紧缩形式浮点数
%o 八进制整数
%s 字符串
%u 无符号整数
%x 十六进制整数
域格式的注意事项:
A.在格式d,o,u或x中,如果整数值较大或可能较大,可加个l字符,意为长整型,如%ld.
B.%字符后加正整数表示该域的最小宽度,如果宽度不足,则向右对齐,前面用空格补足.如果该正整数以数字0打头,则补足字符为0.若%字符后为负整数,则结果向右对齐.
C.浮点数域值(%c,%f和%g)中可以指定小数点前后的宽度,如%8.3f意为总宽度为8个字符,小数点后(即小数部分)为3个字符,多出的小数部分四舍五入.
D.在整数,字符或字符串的值域中使用如上的小数形式n.m,n为总宽度,m为输出结果的最大宽度,这样就保证了输出结果前至少有n-m个空格.
write函数使用输出格式把信息输出到文件中.
此外perl还提供以下系统写函数.
函数syswrite
调用语法:
syswrite (filevar, data, length, skipval);
更快的写入数据,与UNIX函数write等效.
filevar:将要写入的文件
data:存贮要写入数据的变量
length:要写入的字节数
skipval写操作之前跳过的字节数
最后注意:
有些操作系统在对文件写入数据时,会先把数据拷贝到一片特殊的内存即缓冲区中,接下来的输出操作继续写入缓冲区直到写满.当缓冲区满了,就把全部数据实际写入.
象这样先写入缓冲区再把整个缓冲区的内容输出比每次都实际输出所花费的时间要少得多,因为一般来说,I/O比内存操作慢得多.
在perl中,如果要使当前缺省文件的输出不进行缓冲,可对$|赋一个非0值.
select (OUTFILE);
$| = 1;
这样就关闭了对OUTFILE文件写入的缓冲.
6.关闭文件
close函数可用来关闭已打开的文件.
当用close关闭管道,即重定向的命令时,程序等待重定向的命令结束.
如:
open (MYPIPE, "cat file*|");
close (MYPIPE);
当关闭此文件变量时,程序暂停运行,直到命令cat file*运行完毕.
7.select函数
select函数将通过参数传递的文件变量指定为新的当前缺省文件.
如:
select (MYFILE);
这样,MYFILE就成了当前缺省文件,当对print,write和printf的调用未指定文件时,就输出到MYFILE中.
8.eof函数
eof函数查看最后一次读文件操作是否为文件最后一个记录.如果是,则返回非零值;如果文件还有内容,返回零.
一般情况下,对eof的调用不加括号,因为eof和eof()是等效的.但与<>操作符一起使用时,eof和eof()就不同了.
9.文件定位
tell函数和seek函数配合使用,可轻松实现文件内部的定位.
tell函数的调用格式如下:
tell (filevar);
用于返回从文件头到当前位置的距离。
seek函数的调用格式如下:
seek (filevar, distance, relative_to);
distance表示移动的字节数,正数向前移动,负数往回移动.
reletive_to的值可为0,1或2.为0时,从文件头开始移动;为1时,相对于当前位置移动;为2时,相对于文件末尾移动.
命令运行成功返回真,失败则返回零.
注意:
A.seek和tell不能用于指向管道的文件变量。
B.seek和tell中文件变量参数可使用表达式。
二.目录操作
1.新建目录
函数mkdir
调用语法:
mkdir (dirname, permissions);
dirname,将要创建的目录名,可以为字符串或表达式
permissions,8进制数,指定目录的访问权限,其值和意义见下表,权限的组合方法为将相应的值相加.
4000 运行时设置用户ID
2000 运行时设置组ID
1000 粘贴位
0400 拥有者读权限
0200 拥有者写权限
0100 拥有者执行权限
0040 组读权限
0020 组写权限
0010 组执行权限
0004 所有人读权限
0002 所有人写权限
0001 所有人执行权限
2.改变当前工作目录
函数chdir
调用语法:
chdir (dirname);
改变当前工作目录,参数dirname可以为字符串,也可以为表达式.
3.打开目录
函数opendir
调用语法:
opendir (dirvar, dirname);
打开目录,与其它函数合用,可查看某目录中文件列表.
dirvar,目录变量,与文件变量类似.
dirname,目录名,可为字符串或表达式.
成功返回真值,失败返回假.
4.读取目录
函数readdir
调用语法:
readdir (mydir);
赋给简单变量时,每次赋予一个文件或子目录名,对数组则赋予全部文件和子目录名.
5.定位目录列表
函数telldir
调用语法:
location = telldir (mydir);
象在文件中前后移动一样,telldir和下面的seekdir用于在目录列表中前后移动.
函数seekdir
调用语法:
seekdir(mydir, location);
location必须为telldir返回的值。
函数rewinddir
调用语法:
rewinddir (mydir);
将读取目录的位置重置回开头,从而可以重读目录列表.
6.关闭目录
函数closedir
调用语法:
closedir (mydir);
关闭打开的目录.
7.删除目录
函数rmdir
调用语法:
rmdir (dirname);
删除空目录,成功则返回真,失败返回假.
三.文件属性操作
1.文件重定位函数
函数rename
调用语法:
rename (oldname, newname);
改变文件名或移动到另一个目录中,参数可为字符串或表达式.
2.链接和符号链接函数
函数link
调用语法:
link (newlink, file);
创建现有文件的链接--硬链接,file是被链接的文件,newlink是被创建的链接.
成功返回真,失败返回假.
当删除这两个链接中的一个时,还可以用另一个来访问该文件.
函数symlink
调用语法:
symlink (newlink, file);
创建现有文件的符号链接,参数和返回值同上.
当原文件被删除(如:被unlinke函数删除),则被创建链接不可用.
函数readlink
调用语法:
filename = readlink (linkname);
如果linkname为符号链接文件,返回其实际指向的文件,否则返回空串.
函数unlink
调用语法:
num = unlink (filelist);
删除文件,参数为文件名列表.
返回值为实际删除的文件数目.
此函数之所以叫unlink而不叫delete是因为它实际所做的是删除文件的链接.
3.文件许可权函数
函数chmod
调用语法:
chmod (permissions, filelist);
改变文件的访问权限.
permissions为将要设置的权限,filelist为欲改变权限的文件列表.
函数chown
调用语法:
chown (userid, groupid, filelist);
改变文件的属主.
userid,新属主的(数字)ID号.
groupid,新的组(数字)ID号,-1为保留原组.
filelist,欲改变属主的文件列表.
函数.umask
调用语法:
oldmaskval = umask (maskval);
设置文件访问权限掩码,返回值为当前掩码.
4.其它属性函数
函数truncate
调用语法:
truncate (filename, length);
将文件的长度减少到length字节,如果文件长度已经小于length,则不做任何事.
其中filename可以为文件名,也可以为文件变量.
函数stat
调用语法:
stat (file);
获取文件状态,参数file可为文件名也可为文件变量.
返回列表元素依次为:
* 文件所在设备
* 内部参考号(inode)
* 访问权限
* 硬链接数
* 属主的(数字)ID
* 所属组的(数字)ID
* 设备类型（如果file是设备的话）
* 文件大小（字节数）
* 最后访问时间
* 最后修改时间最后改变状态时间
* I/O操作最佳块大小
* 分配给该文件的块数
函数lstat
调用语法:
lstat (file);
与stat类似,区别是将file看作是符号链接.
函数utime
调用语法:
utime (acctime, modtime, filelist);
改变文件的最后访问时间和最后更改时间.
函数fileno
调用语法:
filedesc = fileno (filevar);
返回文件的内部UNIX文件描述,参数filevar为文件变量.
阅读(4591) | 评论(0) | 转发(0) |
