extract-tex-refo.pl

   1 #! /usr/bin/perl -w
   2 #
   3 # extract-tex-refo.pl
   4 #
   5 # Dieses Perl-Skript extrahiert aus der `wortliste'-Datei eine Eingabedatei
   6 # für Patgen, und zwar für die reformierte deutsche Rechtschreibung.
   7 #
   8 # Aufruf:  perl extract-tex-refo.pl < wortliste > input.patgen
   9
  10 use strict;
  11
  12 my $prog = $0;
  13 $prog =~ s@.*/@@;
  14
  15 while (<>) {
  16   chop;
  17   next if /^#/;
  18
  19   # entferne Kommentare
  20   s/#.*$//;
  21
  22   # entferne Leerzeichen aller Art
  23   s/\s+//g;
  24
  25   my @feld = split(';');
  26   next if $#feld < 0;
  27
  28   # Felder 2, 4, 5 und 7
  29   my $zeile = $feld[1];
  30   $zeile = $feld[3] if defined $feld[3] && $feld[3] ne "-4-";
  31   $zeile = $feld[4] if defined $feld[4] && $feld[4] ne "-5-";
  32   $zeile = $feld[6] if defined $feld[6] && $feld[6] ne "-7-";
  33   next if $zeile eq "-2-";
  34
  35   # entferne Doppeldeutigkeiten
  36   $zeile =~ s/\[-*(.*?)-*\|.*?\]/$1/g;
  37   # entferne Markierungen für schlechte Trennungen
  38   $zeile =~ s/\.//g;
  39
  40   print "$zeile\n";
  41 }
  42
  43 # eof