Benutzer-Werkzeuge

Webseiten-Werkzeuge


perl_beispiel_ergebnisauswertung

Beispiel: ergebnisauswertung.pl

(Reguläre Ausdrücke, IF, Ein-/Ausgabedateien)

ergebnisauswertung.pl
#!/usr/bin/perl
use strict;
use File::Basename;
 
sub print_usage () {
        print "Syntax: ./ergebnisaufbereitung.pl <Eingabe-Datei> \n";
}
 
my $infile=$ARGV[0];
my $inname; 
my $indir;
($inname, $indir) = fileparse($infile);
my $outfile="$indir\VT_$inname";
 
# Syntax Check 
unless ($infile) {
        print "Bitte Eingabedatei angeben\n";
        print_usage();
        exit(1);
}
 
print "Ausgabedatei $outfile wird angelegt\n";
open (OUT,">$outfile") || die "Ausgabedatei kann nicht angelegt werden\n $!";
 
print "Eingabedatei $infile wird geöffnet und verarbeitet...\n";
open (IN,"<$infile") || die "Eingabedatei kann nicht geöffnet werden\n $!";
 
while (<IN>)
{
if ($_=~ m/VT Kempen|VT Triangel|VT 1859 Kempen|VTT/i)
   {
	$_=~ s/^\s+//g; # führende Leerzeichen, Tabs etc abschneiden
	$_=~ s/  +/;/g; # doppelte oder mehr Leerzeichen eleminieren
	print OUT "$_"; # kein \n da in der Eingabedatei CRL schon enthalten ist.
   }
}
close IN;
close OUT;
perl_beispiel_ergebnisauswertung.txt · Zuletzt geändert: 2015/06/01 09:21 von admin