Perl文件操作

1.open函数

以下代码我们使用 open 函数以只读的方式(<)打开文件 file.txt：

open(DATA, "<file.txt");

<表示只读方式。

代码中的 DATA 为文件句柄用于读取文件，以下实例将打开文件并将文件内容输出：

open(DATA, "<file.txt") or die "file.txt 文件无法打开, $!";
 
while(<DATA>){
   print "$_";
}

sysopen 函数类似于 open 函数，只是它们的参数形式不一样。

以下实例是以读写(+<filename)的方式打开文件：

sysopen(DATA, "file.txt", O_RDWR);

2.close函数