Perl文件的讀寫操作介紹

本篇內(nèi)容主要講解“Perl文件的讀寫操作介紹”，感興趣的朋友不妨來看看。本文介紹的方法操作簡(jiǎn)單快捷，實(shí)用性強(qiáng)。下面就讓小編來帶大家學(xué)習(xí)“Perl文件的讀寫操作介紹”吧!

基本的I/O操作：

輸出：

print “Hello\n”;

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

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

print <<“文檔標(biāo)志”

輸出內(nèi)容

文檔標(biāo)志

1 ：“<<”與“文檔標(biāo)志”之間不能有空格；

2 ：末尾的文檔標(biāo)志應(yīng)頂頭書寫，標(biāo)識(shí)輸出結(jié)束

輸入$AGRV[0]

讀取標(biāo)準(zhǔn)輸入<STDIN>：$line=<STDIN>;

文件輸入：

#打開句柄：

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

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

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

print $line;

close IN；                           #關(guān)閉句柄

輸出到文件

#打開句柄：

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

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

#追加到文件（原來文件中的內(nèi)容保留）：

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

#輸出內(nèi)容到文件：

print OUT “Hello, NG\n”; #輸入內(nèi)容Hello NG到文件中

#關(guān)閉句柄：

close OUT; # 輸出結(jié)束

$/（當(dāng)前輸入記錄分隔符,默認(rèn)是換行符）的使用：

輸入文件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>;                           #跳過第一個(gè)”>”之前的內(nèi)容

my $line = <IN>;

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

print “>”,$line;

close IN;

$/=“\n”;            # 把輸入記錄分隔符改為”\n”

#顯示

>Scaffold1

AAAAATCTA

GACGA

到此，相信大家對(duì)“Perl文件的讀寫操作介紹”有了更深的了解，不妨來實(shí)際操作一番吧！這里是億速云網(wǎng)站，更多相關(guān)內(nèi)容可以進(jìn)入相關(guān)頻道進(jìn)行查詢，關(guān)注我們，繼續(xù)學(xué)習(xí)！