Shell Programming and Scripting

Adrfld,category
PO BOX,A
POST,A
avenue,A
business,X
bus terminus,A
first cross,A
firstcross,A

Adrptrn,active
ave,y
PO#,y
bus,y
cross,y

Adrfld,category,matchind
PO BOX,A,Y (matches with PO#)
POST,A,N (no match )
avenue,A,Y (matches with ave)
business,X,N (matches with bus, but category is X, so matchind is N)
bus terminus,A,Y (matches with bus)
first cross,A,Y (matches with cross with a leading space)
firstcross,A,N (cross matches but has no leading space0

$ cat file1
PO BOX,A
POST,A
avenue,A
business,X
bus terminus,A
first cross,A
firstcross,A
$ cat file2
ave,y
PO ,y
bus,y
 cross,y
$ cat script.pl
#!/usr/bin/perl

use strict;
use warnings;

open my $f1, "<", "file1" or die "Error opening file1: $!";
open my $f2, "<", "file2" or die "Error opening file2: $!";

my @pat;
while ( <$f2> ) {
    s/\s+$//;
    s/,.//;
    push @pat, $_;
}

INI:
while ( my $line = <$f1> ) {
    $line =~ s/\s+$//;
    print($line . ",N\n") && next INI if ( $line =~ /X$/i );
    for my $pat (@pat) {
    if ( $line =~ /$pat/i ) {
        print $line . ",Y\n";
         next INI;
    }
    
    }
    print $line . ",N\n";
}
$ ./script.pl file1 file2
PO BOX,A,Y
POST,A,N
avenue,A,Y
business,X,N
bus terminus,A,Y
first cross,A,Y
firstcross,A,N

$ awk -F, '
  NR==FNR {if($2=="y") M[gensub(/#$/, " ", 1, " "$1)]++; next }
  FNR==1 { print "adrfld", "category", "matchind"; next}
  $2 != "A" { print $0, "N"; next }
  { for(c in M) {if (" "$1 ~ c) { print $0, "Y"; next } }
    print $0, "N";} ' OFS=, file2 file1
adrfld,category,matchind
PO BOX,A,Y
POST,A,N
avenue,A,Y
business,X,N
bus terminus,A,Y
first cross,A,Y
firstcross,A,N

awk -F, 'NR==FNR{sub(/#/," ");A[$1];next}{$3="N"}FNR==1{$3="matchind"}$2=="A"{for(i in A)if(" "$1~" "i)$3="Y"}1' OFS=, file2 file1

Adrfld,category,matchind
PO BOX,A,Y
POST,A,N
avenue,A,Y
business,X,N
bus terminus,A,Y
first cross,A,Y
firstcross,A,N

awk -F, 'NR==FNR{sub(/#/," ");if($2=="y")A[$1];next}{$3="N"}FNR==1{$3="matchind"}$2=="A"{for(i in A)if(" "$1~" "i)$3="Y"}1' OFS=, file2 file1