提供了编程的基础技术教程

zl程序教程

您现在的位置是：首页 >  后端

当前栏目

perl变量$/的用法解析上下文为行模式时，$/定义以什么来区分行

模式变量 什么 解析 用法 定义 Perl 区分
2023-06-13 09:14:48 时间
默认状态下，很显然都是用\n来区分行，\n也被我们称作为换行符。
当读取序列时，按行来读取时，就是以换行符为标准。

读取的strawberry1.gb的文件内容如下：
LOCUSJX118024460bpDNAlinearPLN25-SEP-2012
DEFINITIONFragariavescasubsp.americanaRNApolymerasebetasubunit(rpoC1)
gene,partialcds;plastid.
/
ACCESSIONJX118024
//
VERSIONJX118024.1GI:402238751
KEYWORDS.
how
///
SOURCEplastidFragariavescasubsp.americana

第一个例子：默认情况
复制代码代码如下:

#!/bin/perl
my$record="";
open(DNAFILENAME,"f:\\perl\\strawberry1.gb")||die("cannotopenthefile!");
$record=<DNAFILENAME>;
print$record;


这个就是没有任何的改动的情况，也就是默认的每次读取一行，结果如下：
F:\>perl\b.pl
LOCUSJX118024460bpDNAlinearPLN25-SEP-2012

如果我们对$/的值给改变一下，按照我们文件的特征，我们先改动为$/=“///\n;

复制代码代码如下:

#!/bin/perl
my$record="";
open(DNAFILENAME,"f:\\perl\\strawberry1.gb")||die("cannotopenthefile!");
$/="///\n";
$record=<DNAFILENAME>;
print$record;


我们得到的结果如下：
F:\>perl\b.pl
LOCUSJX118024460bpDNAlinearPLN25-SEP-2012
DEFINITIONFragariavescasubsp.americanaRNApolymerasebetasubunit(rpoC1)
gene,partialcds;plastid.
/
ACCESSIONJX118024
//
VERSIONJX118024.1GI:402238751
KEYWORDS.
how
///

我们可以看到在这里，这一行是以///为分隔符的，///以上的整个部分都被看成一行。

同样不仅是字符可以作为分隔符，字母也可以，加入我们以how为分隔符，$/="how\n";

复制代码代码如下:
#!/bin/perl
my$record="";
open(DNAFILENAME,"f:\\perl\\strawberry1.gb")||die("cannotopenthefile!");
$/="how\n";
$record=<DNAFILENAME>;
print$record;


结果如下：
C:\DocumentsandSettings\Administrator>f:perl\b.pl
LOCUSJX118024460bpDNAlinearPLN25-SEP-2012
DEFINITIONFragariavescasubsp.americanaRNApolymerasebetasubunit(rpoC1)
gene,partialcds;plastid.
/
ACCESSIONJX118024
//
VERSIONJX118024.1GI:402238751
KEYWORDS.
how

C:\DocumentsandSettings\Administrator>

同样我们也可以完全抛弃传统意义上的行，例如，我们以例子中的第五行的ACCESSION为分隔符：

复制代码代码如下:
#!/bin/perl
my$record="";
open(DNAFILENAME,"f:\\perl\\strawberry1.gb")||die("cannotopenthefile!");
$/="ACCESSION";
$record=<DNAFILENAME>;
print$record;


结果如下：
F:\>perl\b.pl
LOCUSJX118024460bpDNAlinearPLN25-SEP-2012
DEFINITIONFragariavescasubsp.americanaRNApolymerasebetasubunit(rpoC1)
gene,partialcds;plastid.
/
ACCESSION
F:\>

再来看一个例子：以/\n为分隔符：

复制代码代码如下:
#!/bin/perl
my$record="";
open(DNAFILENAME,"f:\\perl\\strawberry1.gb")||die("cannotopenthefile!");
$/="/\n";
$record=<DNAFILENAME>;
print$record;


我们期望的结果应该是配匹到第四行以前的内容为一行，但是结果是否如此？
F:\>perl\b.pl
LOCUSJX118024460bpDNAlinearPLN25-SEP-2012
DEFINITIONFragariavescasubsp.americanaRNApolymerasebetasubunit(rpoC1)
gene,partialcds;plastid.
/
ACCESSIONJX118024
//

F:\>

为什么没有匹配到第一个/呢？

其实这里/这一行并不是仅仅有一个/,而是还有其他的成分在这里，我们把这一行完全删除，然后重新只输入一个/，我们再来匹配
F:\>perl\b.pl
LOCUSJX118024460bpDNAlinearPLN25-SEP-2012
DEFINITIONFragariavescasubsp.americanaRNApolymerasebetasubunit(rpoC1)
gene,partialcds;plastid.
/

F:\>
这次就得到正确的结果了。

相关文章