====== Zeilenfilter ======

In Textfiles/Zeilen Zeichen ersetzen/aufbereiten.

Nehmen wir als Beispiel ein Unload-File, das mehrere DTAUS-Dateien beinhaltet, durch Zeilenende-Zeichen getrennt. Ein zusätzliches '|'-Trennzeichen am Ende jeder Zeile (z.B. von dbaccess als Feldtrenner beim Unload hinzugefügt).

Bevor die DTAUS-Dateien nach dem Entladen aus der DB bearbeitet werden können, müssen diese aufbereitet werden, beispielsweise wie folgt:

  * Sonderzeichen, die vom dbaccess durch '\'-Zeichen "escaped" werden ('\' selbst und '|'), bereinigen;
  * Nicht DTAUS konforme Zeichen durch Blanks ersetzen;
  * Kleinbuchstaben zu Großbuchstaben konvertieren;

All diese Aufgaben erledigt folgendes perl-Aufruf:

<code bash>
/usr/bin/perl -e 'while( <STDIN> ) {
	chomp ;
	$outBuf = $_ ;
	$outBuf =~ s/\\\\/ /g;
	$outBuf =~ s/\\\|/ /g;
	$outBuf =~ s/[^ A-Za-z0-9\.\,\-\+\*\%\/\$\&]/ /g;
	$outBuf =~ s/ $/|/g;
	$outBuf = uc($outBuf);
	print STDOUT "$outBuf\n";
}' < ${INPUT_UNLOADS_DTAUS_FILES} 1>${OUTPUT_DTAUS_FILE} 2>${OUTPUT_ERROR_MELDUNGEN}
</code>

Erläuterung:

  * Das Kommando **''$outBuf = $_ ;''** liest eine Zeile aus dem Input-Stream ''<STDIN>''
  * Kommandos **''$outBuf =~ s/\\\\/ /g;''** und **''$outBuf =~ s/\\\|/ /g;''** ersetzen das doppelte '\'-Zeichen ('\\') bzw. das escaped '|'-Zeichen ('\|') durch Blanks
  * Das Kommando **''$outBuf =~ s/[^ A-Za-z0-9\.\,\-\+\*\%\/\$\&]/ /g;''** ersetzt alle Zeichen, die in diesem Kommando **nicht** erwähnt sind (Invertierung durch das '^'-Zeichen vorne) durch Blanks
  * Das Kommando **''$outBuf =~ s/ $/|/g;''** fügt am Ende jeder Zeile wieder ein '|'-Zeichen hinzu
  * Das Kommando **''$outBuf = uc($outBuf);''** konvertiert alle Kleinbuchstaben zu Großbuchstaben
  * Das Kommando **''print STDOUT "$outBuf\n";''** schreibt die fertige Zeile gefolgt vom Zeilentrenner auf 'stdout' raus

----
Stand: 01.04.2011

EOF