it编程 > 网页制作 > Perl

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

167人参与 2024-05-19 Perl

默认状态下,很显然都是用\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

第一个例子:默认情况


这个就是没有任何的改动的情况,也就是默认的每次读取一行,结果如下:
f:\>perl\b.pl
locus jx118024 460 bp dna linear pln 25-sep-2012

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



我们得到的结果如下:
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";



结果如下:
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为分隔符:



结果如下:
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为分隔符:



我们期望的结果应该是配匹到第四行以前的内容为一行,但是结果是否如此?
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:\>
这次就得到正确的结果了。
(0)
打赏 微信扫一扫 微信扫一扫

您想发表意见!!点此发布评论

推荐阅读

perl qw以空格为分隔符问题的解决方法

05-19

用perl实现生物突变的随机模拟程序代码

05-19

perl中单行注释和多行注释使用介绍

05-19

perl中srand()与time的函数使用方法介绍

05-19

perl use vars pragma使用技巧

05-19

Perl文件句柄详解

05-19

猜你喜欢

版权声明:本文内容由互联网用户贡献,该文观点仅代表作者本人。本站仅提供信息存储服务,不拥有所有权,不承担相关法律责任。 如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 2386932994@qq.com 举报,一经查实将立刻删除。

发表评论