Loganalyser

Hi, ich hab versucht nen Loganalyser zu bauen in perl, bin aber gescheitert.
Ich habe zwar rausgefunden das ich regex nutzen sollte, aber irgendwie komm ich damit nicht klar. Ich wollte nur nach IP=***.***.***.*** suchen und die ip dann ausgeben.
Lg Barbers

Naja, es gibt verschiedene Möglichkeiten, ein regexp wäre z.B.
ˆ\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}
Ich hab gerade keine Ziet ein Script zu coden, aber so stelle ich mir das vor:
Text in @array laden
mit regexp durchsuchen, und das Resultat durch if() ausgeben oder mit open() direkt wieder in eine Datei speichern

Code:

---

while(<>){if($_=~m/(\b\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\b)/){print $1."\n";}}

---