######################################### # txtinf.perl # Ändert Windows ANSII-Umlaute in das # Inform-Format (ä -> @:a) # ------------------------------------- # Aufruf: # perl txtinf.perl ANSII.txt Inform.h # ------------------------------------- # (c) 1999 by Toni Arnold # Version 1.0b0 # Serial No 990310 # Kopieren und modifizieren gestattet, # solange es nicht kommerziell ist. ######################################### # ============ Pattern matching for Umlaute ============ sub pattern_matching { s/ä/\@:a/g; s/Ä/\@:A/g, s/ö/\@:o/g; s/Ö/\@:O/g; s/ü/\@:u/g; s/Ü/\@:U/g; s/ß/\@ss/g; s/"/~/g; }; # ====================================================== $infile = $ARGV[0]; $outfile = $ARGV[1]; if ( (not defined ($infile)) || (not defined ($outfile)) ) { die ("Aufruf: perl txtinf.perl ANSII.txt Inform.h\n"); }; unless (open(IN_FILE, $infile)) { if (-e $infile) { die ("Die ANSII-Textdatei $infile exisiert, kann aber nicht geöffnet werden.\n"); } else { die ("Die ANSII-Textdatei $infile kann nicht geöffnet werden.\n"); }; }; unless (open(OUT_FILE, ">$outfile")) { die ("Die Inform-Textdatei $outilfe kann nicht geöffnet werden."); }; while () { &pattern_matching; for ($i=0; $i 127) { print ("! $infile enthält nicht definiertes Sonderzeichen \"$char\" ($ord_char), Zeile $.\n"); }; }; print OUT_FILE $_; }; close (OUT_FILE); close (IN_FILE); print ("Deutsche Umlaute in $infile nach $outfile durch Inform-Transkriptionen ersetzt.\n"); # ================== end of txtinf.perl ==================