perl 變量 $/ 的用法解析 上下文為行模式時,$/ 定義以什么來區(qū)分行
更新時間:2013年03月20日 22:58:58 作者:
默認狀態(tài)下,很顯然都是用\n來區(qū)分行,\n也被我們稱作為換行符。當讀取序列時,按行來讀取時,就是以換行符為標準
默認狀態(tài)下,很顯然都是用\n來區(qū)分行,\n也被我們稱作為換行符。
當讀取序列時,按行來讀取時,就是以換行符為標準。
讀取的strawberry1.gb的文件內(nèi)容如下:
LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012
DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)
gene, partial cds; plastid.
/
ACCESSION JX118024
//
VERSION JX118024.1 GI:402238751
KEYWORDS .
how
///
SOURCE plastid Fragaria vesca subsp. americana
第一個例子:默認情況
#!/bin/perl
my $record =' ';
open (DNAFILENAME,'f:\\perl\\strawberry1.gb')||die("can not open the file!");
$record = <DNAFILENAME>;
print $record;
這個就是沒有任何的改動的情況,也就是默認的每次讀取一行,結(jié)果如下:
F:\>perl\b.pl
LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012
如果我們對$/的值給改變一下,按照我們文件的特征,我們先改動為$/=“///\n;
#!/bin/perl
my $record =' ';
open (DNAFILENAME,'f:\\perl\\strawberry1.gb')||die("can not open the file!");
$/="http:///\n";
$record = <DNAFILENAME>;
print $record;
我們得到的結(jié)果如下:
F:\>perl\b.pl
LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012
DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)
gene, partial cds; plastid.
/
ACCESSION JX118024
//
VERSION JX118024.1 GI:402238751
KEYWORDS .
how
///
我們可以看到在這里,這一行是以///為分隔符的,///以上的整個部分都被看成一行。
同樣不僅是字符可以作為分隔符,字母也可以,加入我們以how為分隔符,$/="how\n";
#!/bin/perl
my $record =' ';
open (DNAFILENAME,'f:\\perl\\strawberry1.gb')||die("can not open the file!");
$/="how\n";
$record = <DNAFILENAME>;
print $record;
結(jié)果如下:
C:\Documents and Settings\Administrator>f:perl\b.pl
LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012
DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)
gene, partial cds; plastid.
/
ACCESSION JX118024
//
VERSION JX118024.1 GI:402238751
KEYWORDS .
how
C:\Documents and Settings\Administrator>
同樣我們也可以完全拋棄傳統(tǒng)意義上的行,例如,我們以例子中的第五行的ACCESSION為分隔符:
#!/bin/perl
my $record =' ';
open (DNAFILENAME,'f:\\perl\\strawberry1.gb')||die("can not open the file!");
$/="ACCESSION";
$record = <DNAFILENAME>;
print $record;
結(jié)果如下:
F:\>perl\b.pl
LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012
DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)
gene, partial cds; plastid.
/
ACCESSION
F:\>
再來看一個例子:以/\n為分隔符:
#!/bin/perl
my $record =' ';
open (DNAFILENAME,'f:\\perl\\strawberry1.gb')||die("can not open the file!");
$/="/\n";
$record = <DNAFILENAME>;
print $record;
我們期望的結(jié)果應該是配匹到第四行以前的內(nèi)容為一行,但是結(jié)果是否如此?
F:\>perl\b.pl
LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012
DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)
gene, partial cds; plastid.
/
ACCESSION JX118024
//
F:\>
為什么沒有匹配到第一個/ 呢?
其實這里/這一行并不是僅僅有一個/,而是還有其他的成分在這里,我們把這一行完全刪除,然后重新只輸入一個/,我們再來匹配
F:\>perl\b.pl
LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012
DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)
gene, partial cds; plastid.
/
F:\>
這次就得到正確的結(jié)果了。
當讀取序列時,按行來讀取時,就是以換行符為標準。
讀取的strawberry1.gb的文件內(nèi)容如下:
LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012
DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)
gene, partial cds; plastid.
/
ACCESSION JX118024
//
VERSION JX118024.1 GI:402238751
KEYWORDS .
how
///
SOURCE plastid Fragaria vesca subsp. americana
第一個例子:默認情況
復制代碼 代碼如下:
#!/bin/perl
my $record =' ';
open (DNAFILENAME,'f:\\perl\\strawberry1.gb')||die("can not open the file!");
$record = <DNAFILENAME>;
print $record;
這個就是沒有任何的改動的情況,也就是默認的每次讀取一行,結(jié)果如下:
F:\>perl\b.pl
LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012
如果我們對$/的值給改變一下,按照我們文件的特征,我們先改動為$/=“///\n;
復制代碼 代碼如下:
#!/bin/perl
my $record =' ';
open (DNAFILENAME,'f:\\perl\\strawberry1.gb')||die("can not open the file!");
$/="http:///\n";
$record = <DNAFILENAME>;
print $record;
我們得到的結(jié)果如下:
F:\>perl\b.pl
LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012
DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)
gene, partial cds; plastid.
/
ACCESSION JX118024
//
VERSION JX118024.1 GI:402238751
KEYWORDS .
how
///
我們可以看到在這里,這一行是以///為分隔符的,///以上的整個部分都被看成一行。
同樣不僅是字符可以作為分隔符,字母也可以,加入我們以how為分隔符,$/="how\n";
復制代碼 代碼如下:
#!/bin/perl
my $record =' ';
open (DNAFILENAME,'f:\\perl\\strawberry1.gb')||die("can not open the file!");
$/="how\n";
$record = <DNAFILENAME>;
print $record;
結(jié)果如下:
C:\Documents and Settings\Administrator>f:perl\b.pl
LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012
DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)
gene, partial cds; plastid.
/
ACCESSION JX118024
//
VERSION JX118024.1 GI:402238751
KEYWORDS .
how
C:\Documents and Settings\Administrator>
同樣我們也可以完全拋棄傳統(tǒng)意義上的行,例如,我們以例子中的第五行的ACCESSION為分隔符:
復制代碼 代碼如下:
#!/bin/perl
my $record =' ';
open (DNAFILENAME,'f:\\perl\\strawberry1.gb')||die("can not open the file!");
$/="ACCESSION";
$record = <DNAFILENAME>;
print $record;
結(jié)果如下:
F:\>perl\b.pl
LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012
DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)
gene, partial cds; plastid.
/
ACCESSION
F:\>
再來看一個例子:以/\n為分隔符:
復制代碼 代碼如下:
#!/bin/perl
my $record =' ';
open (DNAFILENAME,'f:\\perl\\strawberry1.gb')||die("can not open the file!");
$/="/\n";
$record = <DNAFILENAME>;
print $record;
我們期望的結(jié)果應該是配匹到第四行以前的內(nèi)容為一行,但是結(jié)果是否如此?
F:\>perl\b.pl
LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012
DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)
gene, partial cds; plastid.
/
ACCESSION JX118024
//
F:\>
為什么沒有匹配到第一個/ 呢?
其實這里/這一行并不是僅僅有一個/,而是還有其他的成分在這里,我們把這一行完全刪除,然后重新只輸入一個/,我們再來匹配
F:\>perl\b.pl
LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012
DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)
gene, partial cds; plastid.
/
F:\>
這次就得到正確的結(jié)果了。
相關(guān)文章
perl去除重復內(nèi)容的腳本代碼(重復行+數(shù)組重復字段)
perl去除重復內(nèi)容的小腳本,有需要的朋友可以參考下,包括重復行、數(shù)據(jù)組中重復的字段2013-03-03perl實現(xiàn)的兩個文件對比并對數(shù)據(jù)進行篩選的腳本代碼
對比兩個文件并對數(shù)據(jù)進行篩選的perl腳本,涉及到哈希的應用和perl編程風格的改變。有需要的朋友可以參考下2013-03-03