1 Open函数
使用open的函数以只读的方式（<)打开file.txt
open(DATA,"<file.txt");
<表示只读方式。
实例
#!/usr/bin/perl
open(DATA, "<file.txt") or die "file.txt 文件无法打开, $!";
while(<DATA>){
print "$_";
}
以下代码以写入( > )的方式打开文件 file.txt:
open(DATA, ">file.txt") or die "file.txt 文件无法打开, $!";
>表示写入方式。
如果你需要以读写方式打开文件，可以在 > 或 < 字符前添加 + 号：
open(DATA, "+<file.txt"); or die "file.txt 文件无法打开, $!";
这种方式不会删除文件原来的内容，如果要删除，格式如下所示：
open DATA, "+>file.txt" or die "file.txt 文件无法打开, $!";
如果要向文件中追加数据，则在追加数据之前，只需要以追加方式打开文件即可：
open(DATA,">>file.txt") || die "file.txt 文件无法打开, $!";
>> 表示向现有文件的尾部追加数据
如果需要读取要追加的文件内容可以添加 + 号：
open(DATA,"+>>file.txt") || die "file.txt 文件无法打开, $!";
2 Sysopen 函数
sysopen 函数类似于 open 函数，只是它们的参数形式不一样。
以下实例是以读写(+<filename)的方式打开文件：
sysopen(DATA, "file.txt", O_RDWR);
如果需要在更新文件前清空文件，则写法如下：
sysopen(DATA, "file.txt", O_RDWR|O_TRUNC );
3 Close函数
在文件使用完后，要关闭文件，以刷新与文件句柄相关联的输入输出缓冲区，关闭文件的语法如下：
close FILEHANDLE
close
FILEHANDLE 为指定的文件句柄，如果成功关闭则返回 true。
close(DATA) || die "无法关闭文件";
4 读写文件
以下实例我们将打开一个已存在的文件 file1.txt ，并读取它的每一行写入到文件 file2.txt 中：
实例
#!/usr/bin/perl
# 只读方式打开文件
open(DATA1, "<file1.txt");
# 打开新文件并写入
open(DATA2, ">file2.txt");
# 拷贝数据
while(<DATA1>)
{
print DATA2 $_;
}
close( DATA1 );
close( DATA2 );
