zoukankan      html  css  js  c++  java
  • 【转】perl 变量 $/ 的用法解析 上下文为行模式时,$/ 定义以什么来区分行

     

    默认状态下,很显然都是用 来区分行, 也被我们称作为换行符。 

    当读取序列时,按行来读取时,就是以换行符为标准。 

    读取的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.pl 

    LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012 

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

    代码如下:

    #!/bin/perl 

    my $record =' '; 

    open (DNAFILENAME,'f:\perl\strawberry1.gb')||die("can not open the file!"); 

    $/="/// "; 

    $record = <DNAFILENAME>; 

    print $record; 

    我们得到的结果如下: 

    F:>perl.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 "; 

    代码如下:

    #!/bin/perl 

    my $record =' '; 

    open (DNAFILENAME,'f:\perl\strawberry1.gb')||die("can not open the file!"); 

    $/="how "; 

    $record = <DNAFILENAME>; 

    print $record; 

    结果如下: 

    C:Documents and SettingsAdministrator>f:perl.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为分隔符: 

    代码如下:

    #!/bin/perl 

    my $record =' '; 

    open (DNAFILENAME,'f:\perl\strawberry1.gb')||die("can not open the file!"); 

    $/="ACCESSION"; 

    $record = <DNAFILENAME>; 

    print $record; 

    结果如下: 

    F:>perl.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:> 

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

    代码如下:

    #!/bin/perl 

    my $record =' '; 

    open (DNAFILENAME,'f:\perl\strawberry1.gb')||die("can not open the file!"); 

    $/="/ "; 

    $record = <DNAFILENAME>; 

    print $record; 

    我们期望的结果应该是配匹到第四行以前的内容为一行,但是结果是否如此? 

    F:>perl.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.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:> 

    这次就得到正确的结果了。 

    详细出处参考:http://www.jb51.net/article/34927.htm

  • 相关阅读:
    CDH5.13 集成Kerberos配置
    使用bash脚本删除文件最后几行
    yolov3模型微调(fine-tune)备忘
    ubuntu 18.04 rsync 命令使用 服务端配置
    python 子包调用 跨目录调用
    [转]命令行界面 (CLI)、终端 (Terminal)、Shell、TTY的联系与区别
    bash shell 判断变量是否在列表中
    TensorFlow 图像分类模型 inception_resnet_v2 模型导出、冻结与使用
    numpy 数组集合运算及下标操作
    Win10 Service'MongoDB Server' failed to start. Verify that you have sufficient privileges to start system services【简记】
  • 原文地址:https://www.cnblogs.com/schowen/p/3378998.html
Copyright © 2011-2022 走看看