perl 变量 $/ 的用法解析:上下文为行模式时,$/ 定义以什么来区分行
2012-11-10 11:51
495 查看
今天在看书的过程中,遇到 $/ 这个变量,我们来总结一下这个变量
在默认状态下,我们很显然都是用\n来区分行,\n也被我们称作为换行符。
当我们读取序列的时候,我们按行来读取的时候,就是以换行符为标准。
我们读取的strawberry1.gb的文件内容如下:
第一个例子:默认情况
这个就是没有任何的改动的情况,也就是默认的每次读取一行,结果如下:
如果我们对$/的值给改变一下,按照我们文件的特征,我们先改动为$/=“///\n;
同样不仅是字符可以作为分隔符,字母也可以,加入我们以how为分隔符,$/="how\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
第一个例子:默认情况
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;
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-2012DEFINITION 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";
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为分隔符:
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-2012DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)
gene, partial cds; plastid.
/
ACCESSION
F:\>
我们再来看一个例子:以/\n为分隔符:
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-2012DEFINITION 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-2012DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)
gene, partial cds; plastid.
/
F:\>
这次我们就得到正确的结果了。
要注意的是,在修改了以后,程序后面都修改了,要时刻谨记,因为你后面可能忘了你的这个变化。
相关文章推荐
- perl 变量 $/ 的用法解析 上下文为行模式时,$/ 定义以什么来区分行
- 解析预定义变量的用法
- perl 变量 $/ 的用法解析
- PHP设计模式之委托模式定义与用法简单示例
- extern 用法,全局变量与头文件(重复定义)
- 【Node.js-4】jade介绍、include、传递数据、定义变量、for等高级用法、ejs
- Go 语言变量的定义、用法、示例
- PHP策略模式定义与用法示例
- _IO, _IOR, _IOW, _IOWR 宏的用法与解析 ( ioctl设备控制---定义命令 )
- extern 用法,全局变量与头文件(重复定义)
- 变量声明和定义有什么区别
- go语言变量定义用法实例
- 什么是全局变量?JavaScript的全局变量怎么定义?
- global定义变量用法
- perl变量作用域以及定义方式。
- 如果类a继承类b,实现接口c,而类b和接口c中定义了同名变量,请问会出现什么问题?(瞬联)
- JQuery源码解析-定义变量和函数,赋值JQuery
- PHP设计模式之装饰器模式定义与用法详解
- 变量的声明与定义以及关键字extern的用法
- PHP设计模式之原型模式定义与用法详解