zoukankan      html  css  js  c++  java
  • learning Perl:91行有啥用? 88 print " ----------------------------------_matching_multiple-line_text-------------------------- "; 91 my $lines = join '', <FILE>;

     89 open FILE, "< file_4_ex_ch7.txt"
         90     or die "cannot open file: $!";
         91 my $lines = join '', <FILE>;
         92 print $lines." ";
         93 $lines =~ s/^/file_4_ex_ch7.txt: /gm;
         94 print $lines;

    ----------------------------------_matching_multiple-line_text--------------------------
    anonymous attribute demolition grammar rules indices refernces lignA
    Align,

    ligning.
    .
    AABB

    file_4_ex_ch7.txt: anonymous attribute demolition grammar rules indices refernces lignA
    file_4_ex_ch7.txt: Align,
    file_4_ex_ch7.txt:
    file_4_ex_ch7.txt: ligning.
    file_4_ex_ch7.txt: .
    file_4_ex_ch7.txt: AABB

    ----------------------------------_matching_multiple-line_text--------------------------

    ----------------------------------_--------------------------
    bash-2.03$ cat file_4_ex_ch7.txt
    anonymous attribute demolition grammar rules indices refernces lignA
    Align,

    ligning.
    .
    AABB
    bash-2.03$

  • 相关阅读:
    学习进度笔记
    学习进度笔记
    学习进度笔记
    学习进度笔记
    博雅数据机器学习10
    学习进度笔记
    HDFS上文件权限操作
    HBase的安装与使用
    hadoop完全分布式安装教程
    python安装easygui
  • 原文地址:https://www.cnblogs.com/books2read/p/11125319.html
Copyright © 2011-2022 走看看