perl 写入文件

open O, ">1.txt"#写入文件名 #生成的文件 和脚本在同一个文件夹下面

$string='Hello'

print O $string

open O, ">E:/1.txt" or die $!#生成的文件在E盘，目录下

$string='Hello'

print O $string

open O, ">>E:/1.txt" or die $!#生成的文件在E盘目录下,不会删除原来的文件，在旧的文件1.txt#后 面追加内容

$string='Hello'

print O $string

###############################

<读

>写重头写

>>追加写

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

类比Linux重定向；

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

常用的标准模式为

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

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

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

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

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

---