读文件：
#!perl
open filetxt,"/path/a.txt"; # filetxt为文件句柄，用于和文件a.txt建立链接。文件句柄可任意取名，但不要和Perl自带的几个文件句柄重名。
print <filetxt>; # 此处print函数用于显示文件a.txt的内容。<>为取行操作符，<文件句柄>用于读取所链接文件的内容。
close filetxt; # 关闭文件句柄filetxt。另一种关闭的方法是将其与其它文件建立关联，如：open filetxt,"b.txt";如此则与原来文件a.txt的关联自动关闭。
或者
#!perl
open filetxt,"<path/a.txt"; # < 用于从文件中读取内容，但是不能写入任何内容到文件中。< 与 什么符号都不加 效果相同
while ($line=<filetxt>)
{
print $line;
)
close filetxt;
写文件：
在 open 一行中将 < 更改为 > 或 >> ，即可向文件中写入内容。如：
#!perl
open TXT,">a.txt";
print TXT "梦里不知身是客，n"; # 如果文件a.txt存在，则其内容会被取代
print TXT "一晌贪欢。n"; # 该行内容会附加到第二行
close TXT;
[code]
或者
#!perl
open TXT,">>a.txt";
print TXT "独自莫凭栏，无限江山，别时容易见时难。n"; # 如果文件a.txt已存在，该行内容会被附加到已存在文件的后面
close TXT;
<，从文件中读取内容，但是不能输出到文件里任何内容。如果什么都不加的清况下读文件状况会同加上“<”的效果一样。
>，将内容输出到文件中，并将原有文件中的内容清空。
>>，将内容追加到文件中，不会清空原有文件中的内容。
文件的重命名和删除：
rename:将文件重命名
#!perl
rename "a.txt","b.txt"; # 或者 rename "a.txt","a.bat";
unlink:等同于rm，删除系统中的某些文件
#!perl
my @files=<*.txt>; # 或者 my @files=glob "*.txt";
unlink @files;
或者
#!perl
unlink glob "*.txt";
或者
#!perl
unlink <*.txt>;
多个文本文件的合并：
在Perl中，可以按照如下方式合并多个文本文件：
#!perl
open a,">a.txt";
print a "四十年来家国，三千里地山河。";
