#!/usr/bin/perl
# FINDE AKRONYM Suchbatch fuer Unix Umgebungen
#
if ($#ARGV < 0) {
    print "\nFA - Finde Akronym\n\n";
    print "  Es wurden keine Suchargumente angegeben\n\n";
    print "  Syntax:\n";
    print "  fa <ARCONYM> <term> ... \n\n";
    print "  - Es koennen mehrere Argumente auf einmal angegeben werden.\n";
    print "  - Akronyme sollten in Grossbuchstaben eingegeben werden.\n";
    print "  - Es koennen auch Regular Expressions verwendet werden.\n\n";
    exit;
}
$veradb = "vera.txt";
$found = "found.txt"; 
open(OUTFILE, ">$found") || die "Kann $found nicht oeffnen: $!";
foreach $ARGV (@ARGV) {
    $fcnt = 0;
    print "Suche nach $ARGV \n";
    print OUTFILE "Suche nach $ARGV\n\n";
    open(VERA, $veradb) || die "Kann $veradb nicht finden: $!";
    while (<VERA>) {
	if (/$ARGV/) {
            print OUTFILE "$_"; $fcnt++;
        }
    }
    close VERA;
    print OUTFILE "\n$fcnt Fundstelle(n) fuer $ARGV\n\n";
}
close OUTFILE;
$pg = $ENV{'PAGER'};
if ($pg) {
    system("cat found.txt |$pg");
}
else {
    system("cat found.txt |more");
}
exit;



