perl 变量 $/ 的用法解析:上下文为行模式时,$/ 定义以什么来区
发布时间:2020-12-15 21:02:37 所属栏目:大数据 来源:网络整理
导读:今天在看书的过程中,遇到 $/ 这个变量,我们来总结一下这个变量 在默认状态下,我们很显然都是用n来区分行,n也被我们称作为换行符。 当我们读取序列的时候,我们按行来读取的时候,就是以换行符为标准。 我们读取的strawberry1.gb的文件内容如下: LOCUS
今天在看书的过程中,遇到 $/ 这个变量,我们来总结一下这个变量 在默认状态下,我们很显然都是用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 第一个例子:默认情况 my $record =' '; open (DNAFILENAME,'f:perlstrawberry1.gb')||die("can not open the file!"); $record = <DNAFILENAME>; print $record; 这个就是没有任何的改动的情况,也就是默认的每次读取一行,结果如下: F:&;perlb.pl LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012 如果我们对$/的值给改变一下,按照我们文件的特征,我们先改动为$/=“///n; my $record =' '; open (DNAFILENAME,'f:perlstrawberry1.gb')||die("can not open the file!"); $/="///n"; $record = <DNAFILENAME>; print $record;我们得到的结果如下: F:&;perlb.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为分隔符,$/="hown"; my $record =' '; open (DNAFILENAME,'f:perlstrawberry1.gb')||die("can not open the file!"); $/="hown"; $record = <DNAFILENAME>; print $record; 结果如下: C:Documents and SettingsAdministrator>f:perlb.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 SettingsAdministrator>同样我们也可以完全抛弃传统意义上的行,例如,我们以例子中的第五行的ACCESSION为分隔符: my $record =' '; open (DNAFILENAME,'f:perlstrawberry1.gb')||die("can not open the file!"); $/="ACCESSION"; $record = <DNAFILENAME>; print $record; 结果如下: F:&;perlb.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为分隔符: my $record =' '; open (DNAFILENAME,'f:perlstrawberry1.gb')||die("can not open the file!"); $/="/n"; $record = <DNAFILENAME>; print $record; 我们期望的结果应该是配匹到第四行以前的内容为一行,但是结果是否如此? F:&;perlb.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:&;perlb.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:&; 这次我们就得到正确的结果了。 要注意的是,在修改了以后,程序后面都修改了,要时刻谨记,因为你后面可能忘了你的这个变化。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |