Shell Programming and Scripting

while (<MOUTPUT>) { @fields1 = split "[|]"; $moutput{@fields1[1]}=$_; };

while (<SINPUT>) { @fields2=split "[|]"; if ($moutput{$fields1[1] eq $moutput{$fields2[3]) { print $moutput{$fields2}; } ;

$ cat moutput
1|1|3|4|5|6|7
1|2|3|4|5|6|7
1|3|3|4|5|6|7
1|4|3|4|5|6|7
$ cat sinput
1|2|3|2|5|6
1|2|3|4|5|6
1|2|3|5|5|6
1|2|3|7|5|6
$ perl masinick
1|2|3|2|5|6
1|2|3|4|5|6
$ cat masinick
#!/usr/bin/perl -w
open MOUTPUT,"< moutput";
while (<MOUTPUT>) {
        # split the input line into the @fields array
        @fields = split "[|]";
        # store the line in the %moutput hash indexed by the second field
        $moutput{$fields[1]}=$_;
}
open SINPUT,"< sinput";
while (<SINPUT>) {
        # split the input line into the @fields array
        @fields=split "[|]";
        # if the fourth field exists in the %moutput hash, print the current
        # input line
        if (exists $moutput{$fields[3]}) { print }
}
$

#!/usr/bin/perl 

# File: MatchID.pl
# Author: Brian Masinick
# Initial Creation Date: August 1, 2008


# Inputs:
# M input feed file
# S input feed file

# Intermediate outputs:
# M output feed matching |Y|

# Final outputs:
# S output file matching records in M output file with those in S input file.

# Required software: Perl 5.10

open (MINPUT,"<M_input_file") || die("Could not open M_input_file");
open (MOUTPUT,">M_output_file") || die("Could not open M_output_file");
open (SOUTPUT,">Sl_output_file") || die("Could not open S_output_file");

# This produces the intermediate file, so we have a written record of which set
# of records we are actually processing to produce the final result.

while (<MINPUT>) {
   if ( /\|Y\|/ ) {
      print MOUTPUT;
   }
}

close (MINPUT,  M_input_file);
close (MOUTPUT, M_output_file);

print "M registered users recorded.\n";

open (MOUTPUT,"<M_output_file") || die("Could not open M_output_file");

while (<MOUTPUT>) {
        # split the input line into the @fields array
        @fields = split "[|]";
        # store the line in the %moutput hash indexed by the second field
        $moutput{$fields[1]}=$_;
}


open (SINPUT,"<S_input_file") || die("Could not open S_input_file");

print "Reading S users file.\n";

while (<SINPUT>) {
        # split the input line into the @fields array
        @fields=split "[|]";
        # if the fourth field exists in the %moutput hash, print the current
        # input line
        if (exists $moutput{$fields[3]}) { print SOUTPUT}
}

print "Processing complete.\n";

close (MOUTPUT, M_output_file);
close (SINPUT,  S_input_file);
close (SOUTPUT, S_output_file);

print "Files closed. Program complete.\n";