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

 更新时间:2013年03月20日 22:58:58   作者:  
默认状态下,很显然都是用\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

第一个例子:默认情况
复制代码 代码如下:

#!/bin/perl
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;

复制代码 代码如下:

#!/bin/perl
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-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";

复制代码 代码如下:

#!/bin/perl
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为分隔符:

复制代码 代码如下:

#!/bin/perl
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-2012
DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)
gene, partial cds; plastid.
/
ACCESSION
F:\>

再来看一个例子:以/\n为分隔符:

复制代码 代码如下:

#!/bin/perl
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-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:\>
这次就得到正确的结果了。

相关文章

  • 在Perl中使用Getopt::Long模块来接收用户命令行参数

    在Perl中使用Getopt::Long模块来接收用户命令行参数

    我们在linux常常用到一个程序需要加入参数,现在了解一下perl中的有关控制参数的函数.getopt.在linux有的参数有二种形式.一种是–help,另一种是-h.也就是-和–的分别.–表示完整参数.-表示简化参数
    2013-03-03
  • Perl遍历目录和使用Linux命令分析日志的代码实例分享

    Perl遍历目录和使用Linux命令分析日志的代码实例分享

    这篇文章主要介绍了Perl遍历目录和使用Linux命令分析日志的代码分享,需要的朋友可以参考下
    2014-05-05
  • 用perl写的单位电脑信息采集程序

    用perl写的单位电脑信息采集程序

    perl,后来我又改过了增加了一些交互和数据库检测的功能。主要用于收集ip、mac、姓名、房间,后来又加入了维修记录的功能。服务器端接受数据并存入数据库中。
    2008-08-08
  • perl中5个常见错误

    perl中5个常见错误

    php是用了很久了,python和ruby与用过,经典脚本语言就perl没摸过,现在在像小学生一样抱着教科书啃。
    2008-09-09
  • perl 变量 $/ 的用法解析 上下文为行模式时,$/ 定义以什么来区分行

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

    默认状态下,很显然都是用\n来区分行,\n也被我们称作为换行符。当读取序列时,按行来读取时,就是以换行符为标准
    2013-03-03
  • 只有一行的Perl程序

    只有一行的Perl程序

    今天来说说perl,只有一行的perl程序。
    2008-10-10
  • perl中尖括号运算符(<>)使用说明

    perl中尖括号运算符(<>)使用说明

    perl中尖括号运算符的用途分享,这里简单介绍下,方便需要的朋友
    2013-03-03
  • Perl文件句柄详解

    Perl文件句柄详解

    本文介绍一下Perl文件句柄的概念,要从文件中读取一块数据,应用程序需要调用函数ReadFile,并将Perl文件句柄在内存中的地址和要拷贝的字节数传送给操作系统
    2013-03-03
  • Perl模块编写说明

    Perl模块编写说明

    这两天在用Perl编写一些监控脚本,其实写代码也是一件挺有意思的事情,就是挺废时间的。而且,由于语法不太熟,基本想到一个东西都要先Google一下看怎么实现。
    2008-06-06
  • 构造函数中Perl方法用法介绍

    构造函数中Perl方法用法介绍

    本文和大家重点讨论一下Perl方法的概念,Perl方法定义不提供任何特殊语法,但规定Perl方法的第一个参数为对象或其被引用的包。Perl有两种Perl方法:静态Perl方法和虚Perl方法
    2013-03-03

最新评论