PERL: String in Logfile finden

L

linguin

Jungspund
Hallo,

ich habe ein Mailllog mit folgenden Einträgen:

[61.219.90.222], reject=553 5.3.0 Mail fromIP 61.219.90.222 rejected - see http://spamcop.net
[61.219.90.223], reject=553 5.3.0 Mail fromIP 61.219.90.223 rejected - see http://spamcop.net


Nun möchte ich auf diese Zeile(n) folgenden Regeln anwenden:

1. suche nach dem string "fromIP"
2. wenn gefunden hole mir die IP "61.219.90.22" und schreibe sie in die Variable IPADRESSE.

Folgendes ist zu beachten:
Nicht in jeder Zeile steht "fromIP"
Die IP steht nicht immer in der gleichen Spalte, aber immer nach dem String "fromIP"

Könnt ihr mir helfen ??

Gruß
 
Code:
IPADRESSE=$1 if /fromIP\s(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/

Gruss, Xanti
 
sollte doch auch direkt ala
cat file | grep fromIP | sed
gehen oder ?
 
lordlamer schrieb:
sollte doch auch direkt ala
cat file | grep fromIP | sed
gehen oder ?

Aber warum drei Prozesse dazu bemühen?
Im Grunde würde es auch mit sed alleine gehen.
Aber hier war ja Perl gefragt. ;)

Gruß Wolfgang
 

Ähnliche Themen

dovecot und postfix Konfiguration Problem

CSV Datei mit sed manipulieren/optimieren/ergänzen

E-Mail Empfang, Aliases unter Debian Squeeze

script um logfile zu monitoren/anzupassen

Portknocking mit iptables

Zurück
Oben