perl 变量 $/ 的用法解析 上下文为行模式时，$/ 定义以什么来区分行
更新时间：2013年03月20日 22:58:58 作者：
默认状态下，很显然都是用\n来区分行，\n也被我们称作为换行符。当读取序列时，按行来读取时，就是以换行符为标准
默认状态下，很显然都是用\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:\>
再来看一个例子：以/\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
//
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:\>
这次就得到正确的结果了。
当读取序列时，按行来读取时，就是以换行符为标准。
读取的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:\>
再来看一个例子：以/\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
//
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:\>
这次就得到正确的结果了。
相关文章
本文和大家重点讨论一下Perl语法中Perl运算符的概念和用法，主要包括算术运算符，位运算符，赋值运算符和表运算符等内容，希望本文的介绍你对你有所帮助2013-03-03
perl常见问题集合之二...2007-03-03
Perl语言有很多值得学习的地方，你对Perl语法中的变量是否熟悉，Perl变量分为标量变量,数组变量,联系关系数组变量3类2013-03-03
perl中尖括号运算符的用途分享，这里简单介绍下，方便需要的朋友2013-03-03
比较多也乱了点，大家先看看吧2008-10-10
写好了perl程序，运行后，准备等待结果输出时，结果双击后，看到屏幕闪了一下，然后什么都没有了，根本没有机会然你看到输出的结果2013-03-03
fdupe 是一个很小的 Perl 脚本，用来检索指定目录并找出其中重复的文件，该脚本是通过文件内容来识别是否重复文件，而非文件名。fdupe 无需其他 Perl 脚本支持，运行速度非常快2013-03-03
Perl语言中提供了多种循环结构,包括for、while、do...while和foreach循环,每种循环都有其特定的应用场景和用法,循环控制语句如last、next和redo进一步提升了循环的灵活性,通过灵活运用这些循环,可以编写高效而简洁的代码,感兴趣的朋友跟随小编一起看看吧2025-01-01
这篇文章主要介绍了Perl中的特殊内置变量详细介绍,需要的朋友可以参考下2014-05-05
perl 中的vars是perl中的一个pragma(预编译指示符），专门用来预定义全局变量，这些预定义后的全局变量在qw()列表中，在整个引用perl文件中皆可使用，即便使用use strict也不会报错2013-03-03
最新评论