sub doublettentest {
($datei2,$ext)=split(/\./,$ausgabe_lang);
$datei2 .= ".bak";
rename ($ausgabe_lang, $datei2);
local $/="";
open (IN, "$datei2");
open (OUT, ">$ausgabe_lang");
@erg=();
while (<IN>){
   $erdat=0;
   if (/(Ergebnis Ihrer Anfrage|\&#169; Stadtarchiv Duderstadt)/) {
       $erdat=1;
   }  elsif (/(<b>Bilddatei)/) {
         $erdat=2;
         $art=$1;
   } elsif (/(<b>Signatur)/) {
         $erdat=2;
         $art=$1;
   } elsif (/(<b>Fundstelle)/) {
         $erdat=2;
         $art=$1;
   }
   if ($erdat==2) {
      $text=$_;
      if ($text=~/-\&gt(.+)/s) {  #Bei Orts- oder Personensuche folgt hier der Suchbegriff
         $rest=$1;
         $rest=~/i>(.+?)<\/i/s;
         $sw=$1;
         $sw=~s/\s//g;
         $sw .= "_"; #Unterstrich als Trennzeichen zwischen Suchwort und Fundstellennachweis
      }
      $text=~/$art(.+)/s; #letztes Vorkommen einer Fundstellenangabe
      $rest=$1;
      $rest=~/\">(.+?)<\/a/s;
      $sig=$1;
      $sig=~s/\s//g;
      $suchstring=$sw.$sig;
      $probe=$liste{$suchstring};
      if ($probe){ #Fundstelle bereits bekannt
         $erdat=0;
         $text=$art=$sig=$sw="";
      } else { 
           $liste{"$suchstring"}="$art"; #neue Fundstelle nachweisen
      }
   }
   if ($erdat) {
      if (/(.+html_seiten)(\/)(.{2})(.{2}a)(.+)/s) {
            $text=$1.$3.$2.$3.$4.$5;
            $text=~s/\(\?\)|\(\!\)|\[\?\]|\[\!\]|\(\)|\[\]//g;
            push (@erg,$text);
      } else {
         s/\(\?\)|\(\!\)|\[\?\]|\[\!\]|\(\)|\[\]//g;
         push(@erg,$_);
      }
   }
}
$x=@erg;
$zahl=$x-2;
$txt=$erg[0];
$txt=~/(.+nbsp;Ergebnis Ihrer Anfrage)(.+)/s;
$txt=$1." (".$zahl." Treffer) ".$2;
print OUT $txt;
for ($i=1; $i <= $x; $i++) {
   print OUT $erg[$i];
}
close (IN);
close (OUT);
unlink ($datei2);
print "Location: $ausgabe", "\n\n";
return 1;
}
1;

sub sw_test {
  if ($sw1 && !$sw2) {
       $sw1 =~ s/\*$//;
  } elsif ($sw1 && $sw2) {
       $sw1 =~ s/\*?$/\&/;
       $sw2 =~ s/\*?$/\&/;
  } else {
       $sw1 = $sw2;
       $sw1 =~ s/\*$/\&/;
  }
  return 1;
}
1;

sub tex_convert {
    local $sw;
    $sw=$_[0];
    $sw =~ s/\\"a/ä/g;
    $sw =~ s/\\"A/Ä/g;
    $sw =~ s/\\"o/ö/g;
    $sw =~ s/\\"O/Ö/g;
    $sw =~ s/\\"u/ü/g;
    $sw =~ s/\\"U/Ü/g;
    $sw =~ s/\\ss/ß/g;
    $sw;
}
1