Shell Programming and Scripting

 
#!/usr/bin/perl
use File::Basename;
my $find = $ARGV[0];
my @filelist = $ARGV[1];
my($name,$dir,$ext) = fileparse($ARGV[1],'\..*');
my $newfilename = ($name . "_" . $find . ".csv");
my $intvent = $ARGV[2];
my $workflowid = $ARGV[4];
##example for my $system1: 
#cat /var/mdex/State/ds_state_$workflowid.csv | grep "\0x0003" > /tmp/KGW_$workflowid/ds_state_$workflowid_0x0003.csv
my $system1="cat". " " . $ARGV[1] . " " . "| grep " . " " .  "\"" . "\\" . $ARGV[0] . "\"" . " > " . "/tmp/KGW_" .  $workflowid ."\/" . 
$newfilename;
# process each file in file list
foreach $filename (@filelist) {
      $count = 0;
      # retrieve complete file
      open (IN, "$filename") || die("Error Reading File: $filename $!");
      {
        undef $/;
        $infile = <IN>;
        while ($infile =~ m/$find/gi)
            {$count++};
        print (($count == 0  ) ? exit(0)  : $count . "* " . "\t" . $find . " " . $intvent);
        if ($count >= 0) {
        # write the found ds or up errorcodes into a separate csv file
        system ($system1);
        }
       }
       close (IN) || die("Error Closing File: $filename $!");
}
print "\n";

ADEA576B3030303030303030;459;SAM_LISR;SIMPLIFIED;549;35789;0;0;0x0003 [AUDA900052649];0x0002 [AUDA900052649];
BB4604963030303030303030;411;SAM_LISR;CAPITALIZED;553;45553;0;0;0x0003 [AUDA900056819];0x0002 [AUDA900056819];
26E613683030303030303030;40;SAM_LISR;COPY;553;45709;0;0;0x0003 [AUDA900056830];0x0002 [AUDA900056830];

$ cat infile.txt
123 abc defDOERAEMEaea
fsfsfsf sdsdfsa

$ cat example.pl
#!/usr/local/bin/perl

use strict;
use warnings;

my $file  = "infile.txt";
my $pattern1 = "123";
my $pattern2 = "abc";
my $pattern3 = "DOERAEME";

open (IN, "< $file") || die "ERROR: opening $file\n";

while (<IN>)
{
    if (/$pattern1/ && /$pattern2/ && /$pattern3/) {
       print "found all patterns\n";
    }
    if (/$pattern1/ || /$pattern2/ || /$pattern3/) {
       print "found one or more patterns\n";
    }
}

close IN;

$ ./example
found all patterns
found one or more patterns
$