Perl文件的读写操作介绍

本篇内容主要讲解“Perl文件的读写操作介绍”，感兴趣的朋友不妨来看看。本文介绍的方法操作简单快捷，实用性强。下面就让小编来带大家学习“Perl文件的读写操作介绍”吧!

南岔ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为成都创新互联公司的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：18980820575（备注：SSL证书合作）期待与您的合作！

基本的I/O操作：

输出：

print “Hello\n”;

print “Say \”Hello\” to NG” ,  ”\n”;

 “<<”（本地文档操作符）使用格式：

print <<“文档标志”

输出内容

文档标志

1 ：“<<”与“文档标志”之间不能有空格；

2 ：末尾的文档标志应顶头书写，标识输出结束

输入$AGRV[0]

读取标准输入<STDIN>：$line=<STDIN>;

文件输入：

#打开句柄：

open IN,“<$infile” or die$!;    #读文件

# 或者：open IN,$infile ordie$!;

my $line=<IN>;                            # <> 钻石符

print $line;

close IN；                           #关闭句柄

输出到文件

#打开句柄：

open OUT,”>”,$outfile or die$!; # 打开文件$outfile

# 或者：openOUT,”>$outfile” or die$!;

#追加到文件（原来文件中的内容保留）：

open OUT,”>>$outfile” or die$!;

#输出内容到文件：

print OUT “Hello, NG\n”; #输入内容Hello NG到文件中

#关闭句柄：

close OUT; # 输出结束

$/（当前输入记录分隔符,默认是换行符）的使用：

输入文件test.fasta:

>Scaffold1

AAAAATCTA

GACGA

>Scaffold2

ATCTAAATAT

TTTAAC

open IN,”<test.fasta” or dir$!;

my $line = <IN>;print $line;    #显示：>Scaffold1

$line = <IN>;print $line;                    #显示：AAAAATCTA

$line = <IN>;print $line;                    #显示：GACGA

close IN;

$/=“>”;              #把输入记录分隔符改为”>”

open IN,”<test.fasta” or dir$!;

my $line = <IN>;

print $line;      #显示：>

$line = <IN>;

print $line;

close IN;

#显示：

>Scaffold1

AAAAATCTA

GACGA

> 

只输出第一条序列：

open IN,”<test.fasta” or dir$!;

$/=“>”;                     # 把输入记录分隔符改为”>”

<IN>;                           #跳过第一个”>”之前的内容

my $line = <IN>;

chomp $line;             # 删掉末尾的”>”

print “>”,$line;

close IN;

$/=“\n”;            # 把输入记录分隔符改为”\n”

#显示

>Scaffold1

AAAAATCTA

GACGA

到此，相信大家对“Perl文件的读写操作介绍”有了更深的了解，不妨来实际操作一番吧！这里是创新互联网站，更多相关内容可以进入相关频道进行查询，关注我们，继续学习！

分享标题：Perl文件的读写操作介绍
本文地址：https://www.cdcxhl.com/article18/jgcedp.html

成都网站建设公司_创新互联，为您提供手机网站建设、营销型网站建设、网站营销、网站策划、用户体验、网站改版

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联