自己写的find

grshrd49

觉得好玩就写个了
运行需要两个参数 第一个是起始目录 第二个是目标文件或目录名

1. #!/opt/ActivePerl-5.12/bin/perl
   
2. #根据大神的建议，去除了函数中的带名字的函数
   
3. #将特殊变量$a改成e_path，并初始化
   
4. use strict;
   
5. use Cwd;
   
6. 
   
7. my $source_dir = shift @ARGV; #从什么目录开始查找
   
8. my $tag = shift @ARGV; #要查找目录或者文件名
   
9. 
   
10. &copydir($source_dir);
    
11. print "search end!!\n";
    
12. 
    
13. sub copydir
    
14. {
    
15.         my $up_dir = shift @_;
    
16.         chdir $up_dir;
    
17.         my @mydir = <$up_dir\/*>;
    
18.         my @myfile = <*>;
    
19.         my $fileindex = -1;
    
20.         for my $e_path (@mydir){
    
21.                 $fileindex++;
    
22.                 #print "$e_path----$myfile[$fileindex]\n";
    
23.                 next if (-l $e_path);
    
24.                 if (-d $e_path){
    
25.                         if ( $myfile[$fileindex] eq $tag ){
    
26.                                 my $path = getcwd;
    
27.                                 print "-- searched dir ->$myfile[$fileindex]<-\n";
    
28.                                 #print "-- path = $path\/$myfile[$fileindex]\n\n";  #问题在这里
    
29.                                 print "-- path = $e_path\n\n";
    
30.                         }
    
31.                         &copydir($e_path);
    
32.                 }else{
    
33.                         if ( $myfile[$fileindex] eq $tag ){
    
34.                                 my $path = getcwd;
    
35.                                 print "-- searched file ->$myfile[$fileindex]<-\n";
    
36.                                 print "-- path = $e_path\n\n";
    
37.                         }
    
38.                 }
    
39.         }
    
40. }
    
41. 
    
42. 
    
43. __END__
    
44. #!/opt/ActivePerl-5.12/bin/perl
    
45. use strict;
    
46. use Cwd;
    
47. 
    
48. my $from_dir = shift @ARGV; #从什么目录开始查找
    
49. my $tag = shift @ARGV; #要查找目录或者文件名
    
50. &search($from_dir,$tag);
    
51. 
    
52. sub search
    
53. {
    
54.         my $source_dir = shift @_;
    
55.         my $tag = shift @_;
    
56.         &copydir($source_dir);
    
57.         print "search end!!\n";
    
58. 
    
59.         sub copydir
    
60.         {
    
61.                 my $up_dir = shift @_;
    
62.                 chdir $up_dir;
    
63.                 my @mydir = <$up_dir\/*>;
    
64.                 my @myfile = <*>;
    
65.                 my $fileindex = -1;
    
66.                 for $a (@mydir){
    
67.                         $fileindex++;
    
68.                         print "$a----$myfile[$fileindex]\n";
    
69.                         next if (-l $a);
    
70.                         if (-d $a){
    
71.                                 if ( $myfile[$fileindex] eq $tag ){
    
72.                                         my $path = getcwd;
    
73.                                         print "-- searched dir ->$myfile[$fileindex]<-\n";
    
74.                                         #print "-- path = $path\/$myfile[$fileindex]\n\n";  #问题在这里
    
75.                                         print "-- path = $a\n\n";
    
76.                                 }
    
77.                                 &copydir($a);
    
78.                         }else{
    
79.                                 if ( $myfile[$fileindex] eq $tag ){
    
80.                                         my $path = getcwd;
    
81.                                         print "-- searched file ->$myfile[$fileindex]<-\n";
    
82.                                         print "-- path = $a\n\n";
    
83.                                 }
    
84.                         }
    
85.                 }
    
86.         }
    
87. }
    

复制代码

rubyish

收藏了!

kaixin9ok

有一事不明。。请LZ指教..

研究一上午你写的脚本,学到了很多，不过有一处不太明白

#./find.pl  /etc passwd
我这样去执行脚本，搜到的结果是，为什么  /etc/passwd没有出来？
-- searchd dir -> passwd<-
-- path = /etc/pam.d/passwd

-- searchd dir -> passwd<-
-- path = /etc/pango/x86_64-redhat-linux-gnu/passwd

-- searchd dir -> passwd<-
-- path = /etc/test/passwd

search end!!

grshrd49

回复 3# kaixin9ok

我最怕主要的逻辑出问题，调试后发现是输出显示的问题。
火眼金睛呵 厉害的

#print "-- path = $path\/$myfile[$fileindex]\n\n";  #问题在这里
print "-- path = $a\n\n";                        #直接输出列表中的路径就好了

kaixin9ok

回复 4# grshrd49


    下午就一直在学习你写的脚本，刚学几天，还请多多指教啊

   还是没有太明白为什么写 $a 就可以了呢。
这里输出$a  和输出  $path/$myfile[$fileindex]
不应该是一样的效果吗?还是说因为getcwd方法取出的路径不一样？

grshrd49

回复 5# kaixin9ok


递归操作有点绕哈哈！
因该是这样的，这个问题因该是出在从子目录递归出来后，出现的一个目录 这个目录如果是查询的目录就会出现这样的bug
当一次递归出来以后程序走了 for $a (@mydir) 的下一个元素 此时perl的工作目录依然在上一次递归所在的目录，没有走chdir ,所以才会把上一个内层递归的目录与外层递归查询出的文件名或者目录名组装然后显示出来
所以才需要用for列表中的存的路径来显示，那个才是正确的

zhlong8

grshrd49 发表于 2013-05-17 17:44
觉得好玩就写个了
运行需要两个参数 第一个是起始目录 第二个是目标文件或目录名

提两个错误啊

一不要在函数里面定义带名字的函数，带名字的函数相当于全局变量可以再 search 外面调用，那在 search 外面调用 copydir 那 $tag 的值是什么？

二 23行的 $a 没有声明， $a $b 需要用在 sort 里面特别处理过在 use strict; 下也不用声明但也不能滥用啊

kaixin9ok

回复 7# zhlong8


    嗯，学习了

kaixin9ok

回复 8# kaixin9ok


    学习了..  

grshrd49

回复 7# zhlong8


很兴奋有不同的声音能指责我这个糟糕的脚本，这也是我在perl学习道路中不可获取的动力哈哈！
根据你的建议我优化了代码。