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

概述今天在看书的过程中，遇到 $/ 这个变量，我们来总结一下这个变量 在默认状态下，我们很显然都是用\n来区分行，\n也被我们称作为换行符。 当我们读取序列的时候，我们按行来读取的时候，就是以换行符为标准。 我们读取的strawberry1.gb的文件内容如下： LOCUS JX118024 460 bp DNA linear PLN 25

今天在看书的过程中，遇到 $/ 这个变量，我们来总结一下这个变量

在默认状态下，我们很显然都是用\n来区分行，\n也被我们称作为换行符。

当我们读取序列的时候，我们按行来读取的时候，就是以换行符为标准。

我们读取的strawBerry1.gb的文件内容如下：

LOCUS       JX118024                 460 bp    DNA     linear   PLN 25-SEP-2012DEFinitioN  Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)            gene,partial cds; plastID./						ACCESSION   JX118024//VERSION     JX118024.1  GI:402238751KEYWORDS    .how///SOURCE      plastID Fragaria vesca subsp. americana

第一个例子：默认情况

my $record =' ';open (DNAfilename,'f:\perl\strawBerry1.gb')||dIE("can not open the file!");$record = <DNAfilename>;print $record;

这个就是没有任何的改动的情况，也就是默认的每次读取一行，结果如下：

F:\>perl\b.plLOCUS       JX118024                 460 bp    DNA     linear   PLN 25-SEP-2012

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

my $record =' ';open (DNAfilename,'f:\perl\strawBerry1.gb')||dIE("can not open the file!");$/="///\n";$record = <DNAfilename>;print $record;

我们得到的结果如下：

F:\>perl\b.plLOCUS       JX118024                 460 bp    DNA     linear   PLN 25-SEP-2012DEFinitioN  Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)            gene,partial cds; plastID./ACCESSION   JX118024//VERSION     JX118024.1  GI:402238751KEYWORDS    .how///

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

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

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.plLOCUS       JX118024                 460 bp    DNA     linear   PLN 25-SEP-2012DEFinitioN  Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)            gene,partial cds; plastID./ACCESSION   JX118024//VERSION     JX118024.1  GI:402238751KEYWORDS    .howC:\documents and Settings\administrator>

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

my $record =' ';open (DNAfilename,'f:\perl\strawBerry1.gb')||dIE("can not open the file!");$/="ACCESSION";$record = <DNAfilename>;print $record;

结果如下：

F:\>perl\b.plLOCUS       JX118024                 460 bp    DNA     linear   PLN 25-SEP-2012DEFinitioN  Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)            gene,partial cds; plastID./ACCESSIONF:\>

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

my $record =' ';open (DNAfilename,'f:\perl\strawBerry1.gb')||dIE("can not open the file!");$/="/\n";$record = <DNAfilename>;print $record;

我们期望的结果应该是配匹到第四行以前的内容为一行，但是结果是否如此？

F:\>perl\b.plLOCUS       JX118024                 460 bp    DNA     linear   PLN 25-SEP-2012DEFinitioN  Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)            gene,partial cds; plastID./ACCESSION   JX118024//F:\>

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

其实这里/这一行并不是仅仅有一个/,而是还有其他的成分在这里，我们把这一行完全删除，然后重新只输入一个/，我们再来匹配

F:\>perl\b.plLOCUS       JX118024                 460 bp    DNA     linear   PLN 25-SEP-2012DEFinitioN  Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)            gene,partial cds; plastID./F:\>

这次我们就得到正确的结果了。

要注意的是，在修改了以后，程序后面都修改了，要时刻谨记，因为你后面可能忘了你的这个变化。

总结

以上是内存溢出为你收集整理的perl 变量 $/ 的用法解析：上下文为行模式时，$/ 定义以什么来区分行全部内容，希望文章能够帮你解决perl 变量 $/ 的用法解析：上下文为行模式时，$/ 定义以什么来区分行所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。