读文件：

#!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 "四十年来家国，三千里地山河。";
open  b,">b.txt";
print b "凤阁龙楼连霄汉，玉树琼枝作烟萝。";
open  c,">c.txt";
print c "几曾识干戈？";              # 分别建立文本文件 a.txt、b.txt和c.txt，并执行写入操作
close a;
close b;
close c;                                       # 关闭对应的文件句柄（filehandle）
open a,">>a.txt";
open b,  "b.txt";
open c,  "c.txt";                           # 重新建立文件关联，其中 a.txt 执行附加写入操作，其它两个文件执行读文件操作
print a "n".<b>."n";                   # 利用 . 进行字符串的连接，此操作符必须
print a      <c>."n";                     # <filehandle>表示读取文件句柄所链接的文本文件的内容
close a;
close b;
close c;
[code]
或者
[code]
#!perl
open  a,">a.txt";
print a "四十年来家国，三千里地山河。n";
open  b,">b.txt";
print b "凤阁龙楼连霄汉，玉树琼枝作烟萝。n";       # 生成文件并写入内容时，即执行换行操作，让光标留在下一行
open  c,">c.txt";
print c "几曾识干戈？n";                               #  分别建立文本文件 a.txt、b.txt和c.txt，并执行写入操作
close a;
close b;
close c;                                                          #  关闭对应的文件句柄（filehandle）
open a,">>a.txt";
open b,  "b.txt";
open c,  "c.txt";                                              #  重新建立文件关联，其中 a.txt 执行附加写入操作，其它两个文件执行读文件操作
print a <b>;                                                    #  利用 . 进行字符串的连接，此操作符必须
print a <c>;                                                    #  <filehandle>表示读取文件句柄所链接的文本文件的内容
close a;
close b;
close c;

如果想要在合并文本文件后删除文本文件 b.txt 和 c.txt ，可以在后面加上如下代码：

unlink <b.txt>;
unlink <c.txt>;

或者

unlink "b.txt";
unlink "c.txt";

或者

unlink <b.txt>,<c.txt>;

或者

unlink "b.txt","c.txt";

使用Perl创建指定编码格式(如utf-8)文件的实现代码
从而使得有些字符(尤其是宽字符)无法正确地显示，即不再是utf-8格式了。解决办法：打开输出文件时即指定编码格式，就不会出现输出文件打开以后乱

perl文件读取的几种处理方式小结
1、单行(大文件处理)：my$oneline=$FL或while（$line=H）{}2、读取全部(小文件处理)：open(my$in,"path")ordie"openerror:$!";my@lines=$in;3、读3行(大文件及特殊处理需要)

perl调用外部命令(g)awk的方法
但是，linux系统的常用小工具awk天生对列操作友好，有时直接在perl中调用awk比写相应的perl脚本要方便有效的多。比如用system插入awk语句：system(gawk'{print$