菜鸟求教~如何打开一个文本文档后反转其内容再保存？

菊爷

       嗨~大家好，我是新手。
       想向大家请教一个问题。
       我的是windows的perl编程环境。
       在学习小骆驼书的时候，有一个题目不会解。
       百度了半天也没把程序写出来。
       现发到此处希望大家指点一二。

1. #!perl
   
2. 
   
3. open TXT,"a.txt";     #打开a.txt文件
   
4. print <TXT>;          #将a.txt中的内容输出到屏幕
   
5. 
   
6. 
   
7. 
   
8. open TXT,">a.txt";    #仍然是打开a.txt文件，但是在文件名上面加了">"符号，可以将内容输入到这个文件中，不太清楚这是为什么。。。
   
9. print TXT "你是一头猪猪";    #可以在a.txt文件中输入这句话然后保存
   
10. 
    
11. #然后问题来了，如何将a.txt文件中原有的内容用reverse反转再保存呢？
    
12. #我不想去蓝翔。
    
13. 
    
14. close TXT;

复制代码

b4and5

linux:

perl -e 'print reverse <>' $yourfile

菊爷

我是perl初学者，也不会linux，你这个命令我真是看不懂。。回复 2# b4and5


   

zhlong8

学新语言一开始必须要模仿，能写一些很常用的模式才行。

这里包括打开和关闭文件，从文件句柄中读取所有行，反转一个列表这三个方面。只有最后一个方面对你是新的才对。

把文件读到一个数组中 @lines = <FH>; #钻石操作符在列表上下文
反转一个数组可以用 @reversed = reverse @lines;
打印数组中的每一行要用 foreach

请在每个文件开始写上 use strict; use warnings; 这是区分好代码和坏代码最重要的标志，没有它们你写的再漂亮我看起来心里也要打个问号的

murdercool

1. open TXT,"a.txt";   
   
2. my @arr=<TXT>;         
   
3. 
   
4. open TXT,">","a.txt";
   
5. for my $i(@arr){
   
6.         chomp($i);
   
7.         print TXT scalar reverse($i),"\n"
   
8. }
   
9. close TXT;

复制代码

菊爷

非常感谢您的指教，以后我在练习的时候一定会加上use strict; use warnings;这两行的！{:3_200:} 回复 4# zhlong8


   

菊爷

再次感谢您的指导……
然而新问题又来了。

1. #!perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. open TXT,"a.txt";  
   
6. print <TXT>,"\n";  
   
7. print <TXT>;        #为何每次使用文件句柄都要使用一次open才有用呢？这条语句不会产生任何输出
   
8. 
   
9. open TXT,"a.txt";
   
10. my @good = <TXT>;
    
11. @good = reverse @good;
    
12. foreach (@good){
    
13.         print "$_\n";     #为何列表中的每项是一行？而不是一个字一项？而且reverse操作会去掉每行结尾的换行符？
    
14. }
    
15. 
    
16. #那么问题就来了，open操作为何在小骆驼书中前7章没有任何的介绍？，在课后习题中已经出现了很多文件的操作。
    
17. #因为我是在windows环境中使用perl，没有学过linux和unix，是否学习过这两个操作系统的都会用opne？

复制代码

回复 4# zhlong8


   

cecial

回复 7# 菊爷

zhong8不来了么？哈哈，你这样问问题，一般人会避而远之，因为问题会远远不穷。。。。。还是多看书

   

菊爷

感谢两位的指导，最后代码是这样，感觉还是比较成功。

1. #!perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. open TXT,"a.txt";  
   
6. print <TXT>;  
   
7. #print <TXT>;        #为何每次使用文件句柄都要使用一次open才有用呢？这条语句不会产生任何输出
   
8. close TXT;
   
9. 
   
10. open TXT,"a.txt";
    
11. my @good = <TXT>;
    
12. @good = reverse @good;      #reverse 会去掉换行符号
    
13. close TXT;
    
14. 
    
15. open TXT,">a.txt";
    
16. foreach (@good){
    
17.         chomp $_;
    
18.         print TXT "$_","\n";
    
19.         print "$_\n";   
    
20. }

复制代码

回复 5# murdercool


   

cecial

回复 9# 菊爷

reverse会去掉换行符？？？