Perl 文件读写
在 Perl 中,一旦你打开了一个文件句柄,你需要能够读取和写入信息。有多种不同的方法可以将数据读入和写入文件。
<FILEHANDL> 运算符
从打开的文件句柄读取信息的主要方法是 <FILEHANDLE> 运算符。在标量上下文中,它从文件句柄返回一行。例如:
#!/usr/bin/perl print "What is your name?\n"; $name = <STDIN>; print "Hello $name\n";
当你在列表上下文中使用 <FILEHANDLE> 运算符时,它会从指定的文件句柄返回一个行列表。例如,要将文件中的所有行导入到数组中:
#!/usr/bin/perl open(DATA,"<import.txt") or die "Can't open data"; @lines = <DATA>; close(DATA);
getc 函数
getc 函数从指定 FILEHANDLE 返回单个字符,如果没有指定则返回 STDIN:
getc FILEHANDLE getc
如果发生错误,或者文件句柄已到达文件末尾,则返回 undef。
read 函数
read 函数从缓冲的文件句柄读取一块信息:此函数用于从文件读取二进制数据。
read FILEHANDLE, SCALAR, LENGTH, OFFSET read FILEHANDLE, SCALAR, LENGTH
读取的数据长度由 LENGTH 定义,如果未指定 OFFSET,则数据将放置在 SCALAR 的开头。否则,数据将放置在 SCALAR 中 OFFSET 字节之后。该函数在成功时返回读取的字节数,在文件末尾返回零,如果发生错误则返回 undef。
print 函数
对于所有用于从文件句柄读取信息的不同方法,写入信息的主要函数是 print 函数。
print FILEHANDLE LIST print LIST print
print 函数将 LIST 的计算值打印到 FILEHANDLE,或打印到当前输出文件句柄(默认为 STDOUT)。例如:
print "Hello World!\n";
广告