#! /usr/bin/perl
print "erstes Jahr:  ";
chop($ajahr=<STDIN>);
print "letztes Jahr: ";
chop($ejahr=<STDIN>);
open(OUT,">annalen.dat");
open(IN,"afraga.dat");
while (<IN>) {
   unless (/^input|^read/) {
      print OUT;
   }
}
for ($ajahr;$ajahr<=$ejahr;$ajahr++) {
   $hdat="a".$ajahr."a.dat";
   if (-e $hdat) {
      open(IN,$hdat);
      while (<IN>) {
         $text="";
         unless (/input|read/i) {
            unless (/^vorbesitzer|^wechsel/i){
              print OUT;
            }
         }
      }     
   }
   if ($ajahr=="1549") {
      open(IN,"a1549b.dat");
      while (<IN>) {
         $text="";
         unless (/input|read/i) {
            unless (/^vorbesitzer|^wechsel/i){
              print OUT;
            }
         }
      }     
   }
}