#!/usr/bin/perl
# FIND ACRONYM search batch for Unix based systems
#
if ($#ARGV < 0) {
    print "\nFA - Find Acronym\n\n";
    print "  No search arguments were given\n\n";
    print "  Usage:\n";
    print "  fa <ARCONYM> <term> ... \n\n";
    print "  - Enter as many search items as you like.\n";
    print "  - Acronyms should be entered upper case.\n";
    print "  - You may use regular expressions.\n\n";
    exit;
}
$veradb = "vera.txt";
$found = "found.txt"; 
open(OUTFILE, ">$found") || die "Cannot open $found: $!";
foreach $ARGV (@ARGV) {
    $fcnt = 0;
    print "Looking for $ARGV \n";
    print OUTFILE "Looking for $ARGV\n\n";
    open(VERA, $veradb) || die "Cannot find $veradb: $!";
    while (<VERA>) {
	if (/$ARGV/) {
            print OUTFILE "$_"; $fcnt++;
        }
    }
    close VERA;
    print OUTFILE "\nFound $ARGV $fcnt times\n\n";
}
close OUTFILE;
$pg = $ENV{'PAGER'};
if ($pg) {
    system("cat found.txt |$pg");
}
else {
    system("cat found.txt |more");
}
exit;

