Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
$outfile2 = "ERROR.txt";      
@Filter = ('01005;01000','01005;01001','01005;01002','01005;01003');
$zaehler = 0;
  2. or download this
    open(INFILE, "< $infile")
or
die "\nDatei $infile konnte nicht geoeffnet werden\n";
  3. or download this
    open my $in, '<', $infile or
  die "Error message including \$!: $!\n";
  4. or download this
    while (<INFILE>) { print OUTFILE if /@Filter[0]/; }