#!/usr/bin/perl -w
#Markus Westphal 17.06.2005

use strict;
my($wert,$sprot,$i,$j,@ar,$s,$lesen);

($s, $wert) = split ("=", $ARGV[0]);
$sprot = "sprot.dat";
open(F, "<$sprot") || die ("$sprot kann nicht gelesen werden!\n");
$i=0;
while(<F>)
{
	chomp($_);

	if ($_ =~ /^ID/) {$lesen=1;} 
    	if ($lesen==1)
    	{
        	if ($_ eq "//")
        	{
            		$i++;
            		$lesen=0;
	       }
        	else
        	{	
            		$ar[$i] .= $_ . "\n"; #Wird im array unter dem $i Feld abgelegt
        	}
    	}
}
close (F);
for($j=0; $j<=$#ar; $j++)
{
    if(&IsString($ar[$j], $wert) == 1)
    {
        &PrintRec($ar[$j]);
    }
}


sub IsString()
{
    	my ($a, $b) = @_;
    	if($a=~ /$b/i) {return(1);}
}
sub PrintRec()
{
	my ($a) = @_;
    	print "$a\n";
	print "-------------------ENDE-------------------\n"
}