perl教程零基础入门：零编程基础也能学，7天掌握文件操作，含可直接复用代码

你是不是也遇到过这种情况？电脑里存了一堆文本文件，想从中找个特定内容得翻半天；或者想把好几个文件的内容合并到一起，手动复制粘贴累得不行。其实用 Perl 处理这些事儿特别方便，就算你之前从没接触过编程，跟着兔子哥学，7 天肯定能把文件操作拿下，文中还有能直接用的代码，拿来改改就能上手。

为啥要用 Perl 处理文件？它有啥特别的？

可能有人会问，处理文件用记事本、Excel 不行吗？为啥非得学 Perl？
说真的，简单的查看、修改用那些工具还行，可要是遇到批量处理就麻烦了。比如你有 100 个日志文件，想把里面带 “错误” 的行都挑出来，手动弄估计得大半天，用 Perl 写个脚本，几分钟就搞定。而且 Perl 对文本的处理能力是出了名的强，专门就是干这个的，语法也相对简单，零编程基础的人学起来没那么费劲。
不过话说回来，它也不是万能的，处理特别大的二进制文件（比如视频、图片）就不太合适，但处理文本文件，那是真的顺手。

第一天学啥？先搞懂怎么打开和关闭文件

学文件操作，第一步得知道怎么把文件打开，用完了再关掉，就像开门进房间，完事了要关门一样。
在 Perl 里打开文件用 open 函数，格式大概是这样：open (文件句柄，"文件名"); 比如 open (FILE, "test.txt"); 这里的 FILE 就是文件句柄，相当于给文件起了个临时名字，后面操作文件都用它。
打开文件后，用完一定要记得关，用 close 函数，比如 close (FILE); 别觉得麻烦，要是打开太多文件不关闭，可能会导致程序出问题，这点得记牢。
有朋友可能会问，要是文件不存在怎么办？这时候打开会报错，所以最好加个判断，比如：
open (FILE, "test.txt") or die "打不开文件：$!";
这样要是文件打不开，就会显示错误原因，方便排查问题。

第三天练啥？读取文件内容的几种方法

打开文件后，怎么把里面的内容读出来呢？有几种常用的方法，咱们一个个说。
第一种，一行一行读。用 while 循环，比如：
while () {
print _;}这里的_是 Perl 的默认变量，就代表当前读出来的那一行，这样写就能把文件内容一行行打印出来。
第二种，一次性全读完。用 join 函数，比如：
my @content = ;
my $all = join('', @content);
print $all;
这样 @content 数组里存的是文件的每一行，join 之后就变成了一整个字符串，适合处理不大的文件。
但有些朋友可能会发现，读出来的内容有好多空行，该怎么办呢？其实可以在读的时候过滤一下，比如在 while 循环里加个判断：
while () {
chomp; # 去掉换行符
next if _\n";
}
这样打印出来的就没有空行了。

第七天实战：写个复制文件的脚本

学了几天，咱们来写个实用的，比如复制文件的脚本，代码可以直接用。
脚本大概是这样：
open (IN, "source.txt") or die " 打不开源文件：dest.txt") or die "打不开目标文件：\)">!";
while () {
print OUT $_;
}
close (IN);
close (OUT);
print "文件复制完了～\n";
这里的 “>dest.txt” 表示如果 dest.txt 不存在就创建，如果存在就清空原来的内容再写。要是想在原来的基础上追加内容，就用 “>>dest.txt”。
用这个脚本的时候，把 source.txt 换成你要复制的文件名，dest.txt 换成目标文件名就行，是不是挺方便？
兔子哥觉得，学 Perl 文件操作，关键在于多练，每天花点时间写个小脚本，处理点实际问题，不用 7 天肯定能上手。刚开始可能会遇到各种小错误，别着急，对照着错误提示一点点改，慢慢就熟练了。希望这些内容能帮到你，有啥问题随时交流。

标签： 记事本 一次性