寺院的研究僧: 在文件中查找文本的Perl脚本

2012年6月14日星期四

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

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

    #!/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;
  }

没有评论:

发表评论