Shell Programming and Scripting

#!/usr/bin/perl
use strict;
use warnings;

my $sep = $/ = "== :: ==\n";
my $pattern = "Permanent";
my $hat = 0;

while(<>) {
    if(/$pattern/){
        print $sep if $hat == 0 and ++$hat;
        print;
    }
}

awk ' BEGIN {printf "== :: =="; RS="==";FS="\n";OFS="\n" } $4 ~ "Permanent"{ printf $1 OFS $2 OFS $3 OFS $4 OFS $5 OFS $6 OFS $7 OFS "== :: =="} ' file

cat filter.pl
#!/usr/bin/perl
use strict;
use warnings;

my $sep = $/ = "== :: ==\n";
my $pattern = `$1`;
my $hat = 0;

while(<>) {
if(/$pattern/){
print $sep if $hat == 0 and ++$hat;
print;
 }
}

for service in `cat input_patterns`
do
echo ${service}
perl filter.pl ${service} file>>pattern.out
done

#!/usr/bin/perl
use strict;
use warnings;

my $pattern = shift;
my $sep = $/ = "== :: ==\n";
my $hat = 0;


while(<>) {
    if(/$pattern/){
        print $sep if $hat == 0 and ++$hat;
        print;
    }
}

#!/bin/bash

while read service; do
    perl filter.pl "$service" file.txt >> pattern.out
done < input_patterns

#!/usr/bin/perl
use strict;
use warnings;

my $pattern;
my $pattern_source = shift;
{
    local $/ = undef;
    open my $fh, '<', $pattern_source or die "$!\n";
    $pattern = <$fh>;
    $pattern =~ s/\R(?!$)/\|/g;
    close $fh;
}
my $sep = $/ = "== :: ==\n";
my $hat = 0;
while(<>) {
    if(/$pattern/){
        print $sep if $hat == 0 and ++$hat;
        print;
    }
}

$ 
$ cat patterns.txt
Permanent
Geometric
$ 
$ cat april_2015.txt 
== :: ==
Gender: Female
Service: Tattoo
Nature: Permanent
Amt: 21000 INR
Date: 04/04/2015
Artist: Anushka
== :: ==
Gender: Female
Service: Makeup
Nature: Bridal
Amt: 19200 INR
Date: 05/04/2015
Artist: Jenn
== :: ==
Gender: Male
Service: Tattoo
Nature: Permanent
Amt: 9500 INR
Date: 05/04/2015
Artist: Anushka
== :: ==
Gender: Male
Service: Tattoo
Nature: Geometric
Amt: 9500 USD
Date: 05/04/2015
Artist: Kat Von D
== :: ==
$ 
$ cat -n process_files.py
     1	#!/usr/bin/env python
     2	from sys import argv
     3	# Accept file names as input parameters
     4	pattern_file = argv[1]
     5	data_file = argv[2]
     6	
     7	# Load patterns from pattern_file
     8	patterns = []
     9	with open(pattern_file, 'rt') as f:
    10	    for line in f:
    11	        line = line.replace('\n','')
    12	        patterns.append(line)
    13	
    14	# Read data_file; print data chunk if pattern was found
    15	chunk = []
    16	print_the_rest = 0
    17	with open(data_file, 'rt') as f:
    18	    for line in f:
    19	        line = line.replace('\n','')
    20	        if line == "== :: ==":
    21	            chunk = []
    22	            chunk.append(line)
    23	            print_the_rest = 0
    24	        else:
    25	            chunk.append(line)
    26	            param, value = line.split(': ')
    27	            if value in patterns:
    28	                for item in chunk:
    29	                    print item
    30	                chunk = []
    31	                print_the_rest = 1
    32	            elif print_the_rest:
    33	                print line
    34	
$ 
$ python process_files.py patterns.txt april_2015.txt
== :: ==
Gender: Female
Service: Tattoo
Nature: Permanent
Amt: 21000 INR
Date: 04/04/2015
Artist: Anushka
== :: ==
Gender: Male
Service: Tattoo
Nature: Permanent
Amt: 9500 INR
Date: 05/04/2015
Artist: Anushka
== :: ==
Gender: Male
Service: Tattoo
Nature: Geometric
Amt: 9500 USD
Date: 05/04/2015
Artist: Kat Von D
$ 
$