+ -
当前位置:首页 → 问答吧 → Perl 读取文件问题,只能读取到最后一行【已解决】

Perl 读取文件问题,只能读取到最后一行【已解决】

时间:2011-05-09

来源:互联网

本帖最后由 zhshb8511 于 2011-05-09 17:31 编辑

用perl创建了一个文本文件file.txt,想读取文本中的每一行,然后打印出来
结果是:每次只显示最后一行!!

测试:手动创建文本文件 file.txt,能够读取并显示整个文本内容。
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. my @tmp_list_one = qw/1..10/;
  5. my @tmp_list_two = qw/aa..hh/;
  6. open(FH,">>file.txt") || warn "$!";
  7. print FH @tmp_list_one,"\r";
  8. print FH @tmp_list_two;
  9. close(FH);

  10. open(READ_FILE,"file.txt")||warn "$!";
  11. while(<READ_FILE>)
  12. {
  13.         print "\n";
  14.         print $_;
  15.         print "\n"
  16.         }
复制代码

作者: zhshb8511   发布时间: 2011-05-09

退格符"\r"的问题,这样在打印的时候,会把前面的覆盖,你把这个换成别的字符试试。

换行符是"\n"

作者: iamlimeng   发布时间: 2011-05-09

回复 iamlimeng


    谢谢,果然是这样。

作者: zhshb8511   发布时间: 2011-05-09