perl 变量 $/ 的用法解析 上下文为行模式时，$/ 定义以什么来区分
2020-06-04 20:30:10
供稿：网友
默认状态下，很显然都是用/n来区分行，/n也被我们称作为换行符。
当读取序列时，按行来读取时，就是以换行符为标准。
读取的strawberry1.gb的文件内容如下：
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;
这个就是没有任何的改动的情况，也就是默认的每次读取一行，结果如下：
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!");
$/="////n";
$record = <DNAFILENAME>;
print $record;
我们得到的结果如下：
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;
结果如下：
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>
同样我们也可以完全抛弃传统意义上的行，例如，我们以例子中的第五行的ACCESSION为分隔符：
代码如下:
#!/bin/perl
my $record =' ';
open (DNAFILENAME,'f://perl//strawberry1.gb')||die("can not open the file!");
$/="ACCESSION";
$record = <DNAFILENAME>;
print $record;
结果如下：
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:/>
