perl入门03：文件读入与输出

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

类比Linux重定向；

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

常用的标准模式为

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

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

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

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

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

如果字符串结尾有换行符，chomp 可以去掉它

例如 读文件

open I, "E:\\程序\\1.txt" or die $!

while(<I>){

chomp

其他 *** 作

}

如果结尾有两个或两个以上的换行符，chomp 仅去掉一个。如果没有，那什么也不做，返回0。

chop和chomp函数区别

chop函激首数负责删除标量型标量的最后一个字符或数组中每个元素的最后一个字符，并返回修改后的值。chop一般用于删除程序接收到的输入行末尾的换行符，这些输入行可以来自STDIN、文件或者命令置换结果。基颂

chomp函数，搏铅郑负责删除标量型变量中的最后一个字符，或者数组中每个字的最后一个字符，并保证只有该行末字符是换行符时才进行删除 *** 作。它会返回删除后的字符数目。使用chomp函数来代替chop，能避免删除换行符之外的其它字符。

perl将值写入文搭逗缺件，参考实例如下：

1、open(

my

$fh,

'>',

'fruit.out'

)

or

die

$!

print

$fh

$_

for

@output

2、open

(outfile,">>./outfile")

print

outfile

"$a"

close(outfile)

数组写入如下：

#从头开始写指乱

open(file,">fruit.txt")

#文件结知辩尾追加

open(file,">>fruit.txt")

print

file

"@arr"

---