在文件中查找文本的Perl脚本

Windows里没有grep工具，不方便对文件的内容进行查找，随手写了一个Perl脚本，脚本写得不是很简洁，但能工作。

Github: https://gist.github.com/2273079

 
 

  
  
  
  
   
   

    
    #!/usr/bin/perl  -w
   
   
   
   

    
    ############################################################################
   
   
   
   

    
    #   File:   findtext.pl
   
   
   
   

    
    #   Brief:  Match text content in a directory
   
   
   
   

    
    #
   
   
   
   

    
    #   Usage:  findtext.pl  DIR PATTERN
   
   
   
   

    
    #           - DIR      work directory
   
   
   
   

    
    #           - PATTERN  pattern for text search
   
   
   
   

    
    #
   
   
   
   

    
    #   Author: Thinkhy
   
   
   
   

    
    #   Date:   2011-11-8
   
   
   
   

    
    #   Changes:
   
   
   
   

    
    #
   
   
   
   

    
    ############################################################################
   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
    use 
    
    strict
    
    ;
   
   
   
   

    
    use 
    
    Encode
    
    ;
   
   
   
   

    
    use 
    
    File::
    
    Glob 
    
    ':glob'
    
    ;
   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
    my 
    
    $cnt 
    
    = 
    
    @ARGV
    
    ;
   
   
   
   

    
    if 
    
    (
    
    $cnt 
    
    <= 
    
    0
    
    )
   
   
   
   

    
    {
   
   
   
   

    
        
    
    print 
    
    " Usage:  findtext.pl  DIR PATTERN
   
   
   
   

    
                 - DIR      work directory
   
   
   
   

    
                 - PATTERN  pattern for text search
   
   
   
   

    
              "
    
    ;
   
   
   
   

    
        
    
    exit 
    
    -
    
    1
    
    ;
   
   
   
   

    
    }
   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
    my 
    
    $dir 
    
    = 
    
    decode
    
    (
    
    "gb2312"
    
    , 
    
    $ARGV
    
    [
    
    0
    
    ]);
   
   
   
   

    
    my 
    
    $pattern0 
    
    = 
    
    $ARGV
    
    [
    
    1
    
    ];
   
   
   
   

    
    my 
    
    $pattern 
    
    = 
    
    decode
    
    (
    
    "gb2312"
    
    , 
    
    $ARGV
    
    [
    
    1
    
    ]);
   
   
   
   

    
    print 
    
    $pattern
    
    ;
   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
    chomp
    
    (
    
    $dir
    
    );
   
   
   
   

    
    chomp
    
    (
    
    $pattern
    
    );
   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
    $dir 
    
    =~ 
    
    s/\\/\//g
    
    ;
   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
    print 
    
    "Search content in directory: "
    
    .
    
    $dir
    
    .
    
    "\n"
    
    ;
   
   
   
   

    
    print 
    
    "===================================================\n"
    
    ;
   
   
   
   

    
    print 
    
    "\n"
    
    ;
   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
    Find
    
    (
    
    $dir
    
    );
   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
    my 
    
    $deep 
    
    = 
    
    0
    
    ;
   
   
   
   

    
    sub 
    
    Find
   
   
   
   

    
    {
   
   
   
   

    
        
    
    my 
    
    $path 
    
    = 
    
    shift
    
    ;
   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
        
    
    $deep
    
    ++
    
    ;
   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
        
    
    my 
    
    @pathes 
    
    = 
    
    listpath
    
    (
    
    $path
    
    );
   
   
   
   

    
        
    
    my 
    
    @files 
    
    = 
    
    listfile
    
    (
    
    $path
    
    );
   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
    #print join "\n", @pathes;
   
   
   
   

    
    #    print join "\n", @files;
   
   
   
   

    
        
    
    foreach
    
    (
    
    @files
    
    )
   
   
   
   

    
        
    
    {
   
   
   
   

    
            
    
    my 
    
    $file 
    
    = 
    
    $_
    
    ;
   
   
   
   

    
            
    
    #print "Search".$file."\n";
   
   
   
   

    
            
    
    if 
    
    (
    
    isPatternOnFile
    
    (
    
    $file
    
    , 
    
    $pattern
    
    ))
   
   
   
   

    
            
    
    {
   
   
   
   

    
                
    
    print 
    
    $file
    
    .
    
    "\n"
   
   
   
   

    
            
    
    }
   
   
   
   

    
        
    
    }
   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
        
    
    if 
    
    (
    
    $pathes
    
    [
    
    0
    
    ])
   
   
   
   

    
        
    
    {
   
   
   
   

    
            
    
    foreach
    
    (
    
    @pathes
    
    )
   
   
   
   

    
            
    
    {
   
   
   
   

    
                
    
    Find
    
    (
    
    $_
    
    );
   
   
   
   

    
            
    
    }
   
   
   
   

    
        
    
    }
   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
        
    
    $deep
    
    --
    
    ;
   
   
   
   

    
    }
   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
    sub 
    
    listpath
   
   
   
   

    
    {
   
   
   
   

    
        
    
    my 
    
    $path 
    
    = 
    
    shift
    
    ;
   
   
   
   

    
        
    
    my 
    
    @list 
    
    = 
    
    bsd_glob 
    
    "$path/*"
    
    ;
   
   
   
   

    
        
    
    #my @list = <$path/*>;
   
   
   
   

    
        
    
    my 
    
    @pathes 
    
    = 
    
    grep 
    
    {  
    
    -
    
    d  
    
    } 
    
    @list
    
    ;
   
   
   
   

    
        
    
    return 
    
    @pathes
    
    ;
   
   
   
   

    
    }
   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
    sub 
    
    listfile
   
   
   
   

    
    {
   
   
   
   

    
        
    
    my 
    
    $path 
    
    = 
    
    shift
    
    ;
   
   
   
   

    
        
    
    my 
    
    @list 
    
    = 
    
    bsd_glob 
    
    "$path/*"
    
    ;
   
   
   
   

    
        
    
    #my @list = <$path/*.*>;
   
   
   
   

    
        
    
    my 
    
    @files 
    
    = 
    
    grep 
    
    {  
    
    -
    
    f 
    
    } 
    
    @list
    
    ;
   
   
   
   

    
        
    
    return 
    
    @files
    
    ;
   
   
   
   

    
    }
   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
    sub 
    
    isPatternOnFile
   
   
   
   

    
    {
   
   
   
   

    
        
    
    my 
    
    (
    
    $file
    
    , 
    
    $pattern
    
    ) 
    
    = 
    
    @_
    
    ;
   
   
   
   

    
        
    
    my 
    
    $temp
    
    ;
   
   
   
   

    
    

   
   
   
   

    
    

   
   
   
   

    
        
    
    #read the entire file
   
   
   
   

    
        
    
    open 
    
    my 
    
    $fh
    
    , 
    
    "<:encoding(UTF-8)"
    
    , 
    
    $file 
    
    or 
    
    die 
    
    $!
    
    ;
   
   
   
   

    
        
    
    {
   
   
   
   

    
            
    
    local 
    
    $/
    
    ;
   
   
   
   

    
            
    
    $temp 
    
    = 
    
    <$fh>
    
    ;
   
   
   
   

    
        
    
    }
   
   
   
   

    
        
    
    return 
    
    1 
    
    if 
    
    (
    
    $temp 
    
    =~
    
     /$pattern/i
    
    ) 
    
    or 
    
    return 
    
    0
    
    ;
   
   
   
   

    
    }