Perl如何读写文件

在Perl中可以用open或者sysopen函数来打开文件进行 *** 作，这两个函数都需要通过一个文件句柄（即文件指针）来对文件进行读写定位等 *** 作。下面以open函数为例：读：open(文件句柄，"<文件名")/open(文件句柄，"文件名")，前提文件必须已经存在，否则会返回0，出错信息在$!中。写：open(文件句柄，">文件名")，文件如果不存在，那么创建之，如果存在，内容被清空，长度截为0，$!中有出错信息。追加：open(文件句柄,">>文件名")，基本同写，但有一点，文件中的内容不会被清空，新的内容会追加到原文后面。读写：open(文件句柄,"+<文件名")，通过“+<”模式，你可以既可以读文件，又可以写文件。你可以通过tell() 函数在文件内部移动，通过seek()函数进行定位。如果文件不存在，就会被创建。如果文件已经存在，原来的数据不会被清除。open(文件句柄,"+>文件名")，通过“+》”模式，可以同时读写文件，但与上面不同的是，它是破怀性写，会清除原来的内容。@line=<FD>close(FD)上面的例子是打开info.txt这个文件并把文件内容读入@line中，关闭文件。

perl的读写文件特简单，就4句话足矣。现在我把每句话给你解释一下：

①、#!/usr/bin/perl　在命令行打which perl就出来了，是PERL的编译器。

②、open (OUT,">>","文件的绝对路径")#“>>”:在原文件上追加，“>”:每次都覆盖文件内容

③、print OUT "需要写入的内容"　#　5.10之前要用print，之后可以写say.

④、close OUT # 关不关无所谓，你不关，它也会自动关闭。

文件读写主要使用 open 函数，如下图使用方法分为三个部分：

类比Linux重定向；

为待读取的文件或者准备写入的新文件名，一般配合 ARGV 从参数中读取。

常用的标准模式为

考虑到有时文件无法打开的现象，可以在结尾补充说明性的报错信息

首先要理解两种文件的区别---

（1）fastq有四行，第一行开头为 @

（2）fasta只有两行，第一行开头为 >。

因此要将fastq的三四两行删去，同时将第一行的 @ 更换为 >。

---