file::find例子&&求助

xiaojianredhat

1. use File::Find;
   
2. 
   
3. @ARGV=('.') unless @ARGV;
   
4. $dir=shift @ARGV;
   
5. find(\&edits, $dir);
   
6. sub edits() {
   
7.              $seen=0;
   
8.              if( -f and /.htm?/ )
   
9.                 { $file=$_;
   
10.                    open FILE, $file;
    
11.                    @lines=<FILE>;;
    
12.                    close FILE;
    
13.                    for $line (@lines){
    
14.                                      if($line=~s/www.163.com/www.888.com/){$seen++;}
    
15.                                      }
    
16.                                      open FILE, ">;$file";
    
17.                                      print FILE @lines;
    
18.                                      close FILE;
    
19.              print "\nFound in $File::Find::name\n" if $seen >; 0;
    
20. 
    
21.                  }
    
22.                }
    

复制代码

我在网上搜集了以下，基本上就能满足替换要求！
Because of this words:
"This script can be used as a starting point for more useful or powerful scripts. Readers are encouraged to look up this kind of editing in the Perl cookbook."
我决定用下面的但是看不懂，麻烦大家看看，帮忙解释以下（详细一点啊

1. use File::Find;
   
2. @ARGV = ('.') unless @ARGV;
   
3. $dir = shift @ARGV;
   
4. find(\&edits, $dir);
   
5. sub edits() {
   
6. return unless -f;        #skip directories
   
7. $seen = 0;
   
8. $file = $_;
   
9. #Uncomment next line if you want multi-line edits
   
10. #undef $/;
    
11. local $^I=".backup";
    
12. #Warning - heavy magic here
    
13. local @ARGV = ($file);
    
14. while(<>;) {
    
15. #Remember to use the s option if doing multiline edits
    
16. $seen++ if s/Lesson/Chapter/;
    
17. print;
    
18. }
    
19. print "Found in $File::Find::name\n" if $seen >; 0;
    
20. #Comment out if you want to keep the backup
    
21. #unlink $file.".backup";
    
22. }
    

复制代码

谢谢

apile

1. 
   
2. use File::Find;
   
3. 
   
4. #如果沒有argument傳入..則設定default的 目前目錄 "."
   
5. @ARGV = ('.') unless @ARGV;
   
6. #取出第一個目錄..
   
7. $dir = shift @ARGV;
   
8. #--呼叫File::Find中的find subroutine...並傳入 ref to subroutine
   
9. # 與 目錄 ，其中edits是callback method..
   
10. find(\&edits, $dir);
    
11. 
    
12. #---設定edits的內容
    
13. sub edits() {
    
14. #---find會在每次一查到一個file時就呼叫edits..
    
15. #--略過非files的文件..
    
16. return unless -f;        #skip directories
    
17. $seen = 0;
    
18. #--取得filename
    
19. $file = $_;
    
20. #Uncomment next line if you want multi-line edits
    
21. #---將 "\n"當成分行符號的設定關閉..
    
22. #undef $/;
    
23. #--設定自動backup的附加文件名稱
    
24. #--例如原來文件abc..備份文件abc.backup
    
25. local $^I=".backup";
    
26. #Warning - heavy magic here
    
27. #--利用local的特定..暫時將argument設定成 find所找到的file name
    
28. local @ARGV = ($file);
    
29. 
    
30. #--從STDIN中讀取數值..就是把第一個argument讀進來
    
31. while(<>;) {
    
32. #Remember to use the s option if doing multiline edits
    
33. #----替換掉STDIN中的Lesson成為Chapter..
    
34. $seen++ if s/Lesson/Chapter/;
    
35. #--print 出來改完後結果..
    
36. print;
    
37. }
    
38. #--因為$seen>;0..表示s///有改到file..因此可以知道有找到 Lesson的file..
    
39. print "Found in $File::Find::name\n" if $seen >; 0;
    
40. #Comment out if you want to keep the backup
    
41. #unlink $file.".backup";
    
42. }
    

复制代码

大概像這樣..詳情還是要看一下CPAN上的說明...