open文件内容的读取和写入：

use strict;

#准备进行读取的文件

my $my_file = "D:/file/file.txt";

#FILEHANDLE 为自命名句柄，大写，<可省略

open (FILEHANDLE,"< $my_file") or die "Can‘t open $my_file";

#打印句柄读取内容

print <FILEHANDLE>；

#需要写入信息的文件，可以存在也可以不存在

my $print_file = "D:/file/file2.txt";

#一个>表示删除原有文件写入，两个>表示追加写入

open (FILEHANDLE2,"> $print_file") or die "Can‘t open $print_file";

#将读取的数据写入到需要写入的文件中，当然这里要写入的信息不一定是句柄，可以是任何内容，写入文件的句柄是需要存在的。

print <FILEHANDLE2> <FILEHANDLE>;

close FILEHANDLE；#关闭读取文件句柄

IO::File模块需要先创建新的文件句柄：然后open方法打开文件，它和open函数的工作方法类似：

use strict;

use IO::File;#导入IO模块

#创建新的文件句柄，此处的文件句柄名需要根据自己的要求来命名，可以不是大写字母

my $filehandle = new IO::File;

#用句柄打开文件file.txt，<表示文件为被读取

$filehandle->open("< file.txt") or die "Can‘t open file.txt";

#打印读取的文件内容

print <$filehandle>;

 #创建一个新的文件句柄

my $filehandle1 = new IO::File;

#该文件句柄打开需要写入的文件

$filehandle1->open("> file1.txt") or diw "Can‘t open file1.txt";

#将hello word 信息打印入该文件句柄

$filehandle1->print ("hello word");

$filehandle->close;#将读取文件的句柄关闭

$filehandle->close;#将写入文件的句柄关闭

use strict;

use FileHandle;#导入FileHandle模块

#创建读取文件的句柄

my $filehandle = new FileHandle ("< file.txt") or die "Can‘t open file.txt";

#打印该文件内的内容

print <$filehandle>;

#创建写入文件的文件句柄

my $filehandle1 = new FileHandle("> file1.txt") or die "Can‘t open file1.txt";

#将hello word信息写入该句柄中

print <$filehandle1> "hello word";

close $filehandle;#关闭读取文件的句柄