Shell Programming and Scripting

use Time::localtime;
use POSIX qw/strftime/;
use File::Find;
use File::stat;
use IO::Handle;
use File::copy;
use Unicode::String ;
use Cwd;
use Encode;
use PerlIO::encoding;

Unicode::String->stringify_as( 'utf8' );
sub trim($);


$dir = "C:\\Temp\\t\\";


($File_pattern,$search_pattern,$search_pattern2,$search_pattern3) = @ARGV;
$SRC_FLG1=0;
$SRC_FLG2=0;
$SRC_FLG3=0;
#print $search_pattern2;
print "Searching $search_pattern,$search_pattern2,$search_pattern3 in $dir......\n";


$search_pattern = trim($search_pattern);

$search_pattern2= trim($search_pattern2);

$search_pattern3= trim($search_pattern3);

sub trim($)
{
  my $string = shift;
  $string =~ s/^\s+//;
  $string =~ s/\s+$//;
  return $string;
}




opendir ( DIR, $dir ) || die "Error in opening dir $dirname\n";
find (\&Search, "$dir");

sub Search {
if ((/\.msg$/) && (/$File_pattern/) )
               {
                print $_;

                foreach $x ($_) {
                my $filename = $x;
                print "\n--------------------------------------------------\n";
                open(my $in, '<:raw', $filename) || die "Couldn't open file: $!";
                 my $text = do { local $/; <$in> };
                close $in;
                my $content = decode('UTF-16LE', $text);

                      foreach $line ($content)
                                              {  print "search $search_pattern in $content";
                                                 if ($line =~ (m/$search_pattern/gi))
                                                      {
                                                        print "\nYes1";
                                                        $SRC_FLG1=1;
                                                      }

                                                                        print "search $search_pattern2 in $content";
                                                  if ($line =~ (m/$search_pattern2/gi))
                                                        {
                                                         print "\nYes2";
                                                        }
                                               print "search $search_pattern3 in $content";
                                                                        if ($line =~ (m/$search_pattern3/gi))
                                                         {
                                                          print "\nYes3";
                                                          $SRC_FLG3=1;
                                                         }

                                  if ($SRC_FLG1==1 && $SRC_FLG2==1 && $SRC_FLG3==1)
                                        {
                                         print "File found : $filename\n";
                                        }

                      print $SRC_FLG1,$SRC_FLG2,$SRC_FLG3;
                      $SRC_FLG1=0;
                      $SRC_FLG2=0;
                      $SRC_FLG3=0;

                                            }


                                }

                  }








print "\n--------------------------------------------------\n";

closedir(DIR);
chdir("..");

if ($line =~ (m/$search_pattern2/gi))