在学习Perl语言的过程中,Perl文件系统是比较重要的知识点,这里向大家简单介绍一下Perl文件系统的概念,重点介绍一下Perl文件输入输出函数,相信通过本文的学习你对Perl文件系统的概念一定会有明确的认识。
Perl文件系统
一、Perl文件输入/输出函数
本节讲述从Perl文件中读取信息和向Perl文件写入信息的内置库函数。
1、Perl文件系统之基本I/O函数
一些I/O函数在前面的章节中已有讲述,如
open:允许程序访问Perl文件
close:终止Perl文件访问
print:Perl文件写入字符串
write:向Perl文件写入格式化信息
printf:格式化字符串并输出到Perl文件
这里简单回顾一下,再讲一些前面未提到的函数。
2、Perl文件系统之跳过和重读数据
函数名seek
调用语法seek(filevar,distance,relative_to);
解说在Perl文件中向前/后移动,有三个参数:
1、filevar,Perl文件变量
2、distance,移动的字节数,正数向前移动,负数往回移动
3、reletive_to,值可为0、1或2。为0时,从Perl文件头开始移动,为1时,相对于当前位置(将要读的下一行)移动,为2时,相对于Perl文件末尾移动。
运行成功返回真(非零值),失败则返回零,常与tell函数合用。
函数名tell
调用语法tell(filevar);
解说返回从Perl文件头到当前位置的距离。
注意:
1、seek和tell不能用于指向管道的Perl文件变量。
2、seek和tell中Perl文件变量参数可使用表达式。
3、Perl文件系统之系统读写函数
函数名read
调用语法read(filevar,result,length,skipval);
解说read函数设计得与UNIX的fread函数等效,可以读取任意长度的字符(字节)存入一个简单变量。其参数有四个:
1、filevar:Perl文件变量
2、result:存贮结果的简单变量(或数组元素)
3、length:读取的字节数
4、skipval:可选项,指定读Perl文件之前跳过的字节数。
返回值为实际读取的字节数,如果已到了Perl文件末尾,则返回零,如果出错,则返回空串。
函数名sysread
调用语法sysread(filevar,result,length,skipval);
解说更快的读取数据,与UNIX函数read等效,参数与read相同。
函数名syswrite
调用语法syswrite(filevar,data,length,skipval);
解说更快的写入数据,与UNIX函数write等效,参数:
1、filevar:将要写入的Perl文件
2、data:存贮要写入数据的变量
3、length:要写入的字节数
4、skipval写操作之前跳过的字节数。
4、Perl文件系统之用getc读取字符
函数名getc
调用语法$char=getc(infile);
解说从Perl文件中读取单个字符。
5、Perl文件系统之用binmode读取二进制Perl文件
函数名binmode
调用语法binmode(filevar);
解说当你的系统(如类DOS系统)对文本Perl文件和二进制Perl文件有所区别时使用。必须在打开Perl文件后、读取Perl文件前使用。
【编辑推荐】