perl文件操作学习-创新互联

现有文件hello.txt,内容为："你好'\n' 我是中国人"

1,打开文本hello.txt

     #!/usr/bin/perl

     open f,"hello.txt";

   f 为文件句柄，指向打开的文件

2，逐行读取文本hello.txt

     #!/usr/bin/perl

     open f,"< hello.txt";

     while($line=){

         print $line;

      }

      close f;

     结果：你好

                我是中国人

    或者：print ;

    结果：你好

               我是中国人

    <> 为取行操作符

3，向a.txt中写入内容

  #!/usr/bin/perl

   open f,">a.txt";

   print f "hello,world\nsee you\n";

   close f;

   如果a.txt原本有内容，则原内容将会被擦除，a.txt的内容为

                   hello,world

                   see you

4,向a.txt中追加内容

   #!/usr/bin/perl

     open f,">>a.txt";

     print f "thank you\n";

     close f;

     a.txt的内容为

             hello,world

             see you

             thank you

  print 相当于写命令，别丢了语句结尾的 “;"

另外有需要云服务器可以了解下创新互联scvps.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。