#!/usr/bin/perl

use strict;
use warnings;


# Variablen definieren
my $inputfile = '/var/log/mail.log';
my $outputfile = '/opt/lampp/htdocs/greylisted.txt';


# öffne datei oder stirb
open my $fh, '<', $inputfile or die "$inputfile: $!";


# neue datei anlegen
open my $out, '>', $outputfile or die $!;


# lies zeile für zeile
while (my $line = <$fh>)
{
 if ($line =~ m/\bGreylisted for 300\b/)
 {
   # wenn der Suchstringt vorkommt,
   # schreibe in die neue datei
   # nur wenn ein String nach "RCPT from" gefunden wird, wird eine Ausgabe gemacht
   if ( $line =~ m/RCPT from\s*(.*?):/ )
    {
    print $out substr( $line, 0, 15 ) . ' : ' . $1 . $/;
    }
 }
}
close $fh;
close $out;

#!/usr/bin/perl
use strict;
use warnings 'all';

# dateinamen
my $inputfile = '/var/log/mail.log';
my $outputfile = '/opt/lampp/htdocs/greylisted.txt';

# oeffne inputfile
open(my$fhin, '<', $inputfile) or die "$inputfile: $!";

    # array für die ausgabe
    my @output;

    # lies zeile für zeile
    while (my$line = <$fhin>)
    {
        if ($line =~ m/\bGreylisted for 300\b/)
        {
            # wenn der Suchstringt vorkommt,
            # und "RCPT from" gefunden wird,
            # wird das ausgabearray erweitert
            if ( $line =~ m/RCPT from\s*(.*?):/ )
            { push(@output, substr( $line, 0, 15 ) .' : '. $1) }
        }
    }

# inputfile schliessen
close $fhin;

# ausgabearray bearbeiten
unshift(@output, $#output+2);

# oeffne outputfile
open(my$fhout, '>', $outputfile) or die "$outputfile: $!";

    # daten rausschreiben
    map { print $fhout "$_$/" } @output;

# outputfile schliessen
close $fhout;

   # daten rausschreiben
   map { print $fhout "$_$/" } @output;

   # daten rausschreiben
   print $fhout "$_$/" for @output;