默认状态下，很显然都是用n来区分行，n也被我们称作为换行符。 当读取序列时，按行来读取时，就是以换行符为标准。 读取的strawberry1.gb的文件内容如下： LOCUS JX bp DNA linear PLN -SEP- DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1) gene, partial cds; plastid. / ACCESSION JX // VERSION JX.1 GI: KEYWORDS . how /// SOURCE plastid Fragaria vesca subsp. americana 第一个例子：默认情况 这个就是没有任何的改动的情况，也就是默认的每次读取一行，结果如下： F:>perlb.pl LOCUS JX bp DNA linear PLN -SEP- 如果我们对$/的值给改变一下，按照我们文件的特征，我们先改动为$/=“///n; 我们得到的结果如下： F:>perlb.pl LOCUS JX bp DNA linear PLN -SEP- DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1) gene, partial cds; plastid. / ACCESSION JX // VERSION JX.1 GI: KEYWORDS . how /// 我们可以看到在这里，这一行是以///为分隔符的，///以上的整个部分都被看成一行。 同样不仅是字符可以作为分隔符，字母也可以，加入我们以how为分隔符，$/="hown"; 结果如下： C:Documents and SettingsAdministrator>f:perlb.pl LOCUS JX bp DNA linear PLN -SEP- DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1) gene, partial cds; plastid. / ACCESSION JX // VERSION JX.1 GI: KEYWORDS . how C:Documents and SettingsAdministrator> 同样我们也可以完全抛弃传统意义上的行，例如，我们以例子中的第五行的ACCESSION为分隔符： 结果如下： F:>perlb.pl LOCUS JX bp DNA linear PLN -SEP- DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1) gene, partial cds; plastid. / ACCESSION F:> 再来看一个例子：以/n为分隔符： 我们期望的结果应该是配匹到第四行以前的内容为一行，但是结果是否如此？ F:>perlb.pl LOCUS JX bp DNA linear PLN -SEP- DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1) gene, partial cds; plastid. / ACCESSION JX // F:> 为什么没有匹配到第一个/ 呢？ 其实这里/这一行并不是仅仅有一个/,而是还有其他的成分在这里，我们把这一行完全删除，然后重新只输入一个/，我们再来匹配 F:>perlb.pl LOCUS JX bp DNA linear PLN -SEP- DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1) gene, partial cds; plastid. / F:> 这次就得到正确的结果了。
推荐整理分享perl 变量 $/ 的用法解析 上下文为行模式时，$/ 定义以什么来区分行(perl脚本输出变量)，希望有所帮助，仅作参考，欢迎阅读内容。
文章相关热门搜索词:perl变量加大括号,perl中qw,perl脚本输出变量,perl变量定义,perl变量定义,perl变量赋值,perl脚本输出变量,perl中的$_,内容如对您有帮助，希望把文章链接给更多的朋友！
perl写的一个随机编故事的程序(rand随机函数) #!/bin/perlusestrict;usewarnings;#定义变量my$count;my$input;my$number;my$sentence;my$story;#定义四个数组#定义了人物数组my@nouns=('Dad','TV','Mom','Groucho','Rebecca','Harpo','RobinHoo
perl实现的两个文件对比并对数据进行筛选的脚本代码 #!/usr/bin/perlmy%scyjm;open(CONTACT,"f:\perl\f.txt")||die("cannotopenthefile!");while(CONTACT){nextif/^#/;#if($_=~/^#/的简写chomp;my@information=split;#my@information=split/s+/,$_;的简写next
perl qw以空格为分隔符问题的解决方法 perl中创建数组时，可以使用到qw。但有一个问题，如果要创建有个人名组成的数组，并且每个人的名字是这种形式的"Joinsmith""HarryPotter"也就是每一个名
