Hallo,
ich habe ien Liste mit IP-Adressen von Robots und möchte die mit IP-Adressen aus Logfiles abgleichen / filtern.

derzeit mache ich das so:

Ich schreibe die Ip's der Netze in ein Array
@robots =("64.68",..."64.242.88.",...);

Wie man sieht verwende ich da teilweise große IP-Bereiche.

Das Array durchlaufe ich dann mit einer Schleife....

foreach my $robot (@robots) {
if ($ip =~ /^$robot.*/) {
... tue dinge
last;
}


Gibt es da einen intelligenteren, effektiveren Ansatz?

Und btw. gibt es einen Dienst, der aktualisierte Listen von Robots veröffentlicht?

Schau Dir vielleicht mal Logfile::EPrints an.

Ansonsten wäre es praktisch, wenn Du precompiled RegExs verwendest. Damit ersparst Du der RegEx-Engine jede Menge Arbeit:




Und mit Regexp::Assemble kannst Du einen minimalen RegEx bekommen.

Ein anderes Modul was vielleicht nicht schlecht ist, ist Net::IP::Match::Regexp

Bei IP-Adressen könnte es vielleicht auch sinnvoll sein, nicht Text sondern Binärdaten zu vergleichen. Jede IPv4 lässt sich ja in 4 Bytes repräsentieren...

Naja, normale Logfiles haben aber die dezimale Darstellung...

Die Darstellung, wie sie im Log steht, bekommt man wie folgt binär:



Gruß, Doc

Was willst Du damit sagen?? :rock:

Mit dem Code erfolgt keine Umwandlung in Binärzahlen...

@renee

Na ja, murphy sagt:

Quote

Bei IP-Adressen könnte es vielleicht auch sinnvoll sein, nicht Text sondern Binärdaten zu vergleichen.

Darauf hast Du geschrieben:

Quote

Naja, normale Logfiles haben aber die dezimale Darstellung...

Das habe ich so verstanden, daß Du damit sagen willst, daß ein Binärvergleich kein Sinn mache, weil die UIP-Adressen ja nicht binär im Log-File stehen.

... und ich habe dann ein Code-Stück gepostet, wie man von der einen zur anderen Repräsentation kommt ;o)

That's it!

Gruß, Doc

In der Regel tauchen z.B. in Apache Log-Files die IP-Adressen in der Dezimaldarstellung auf. Von daher hast Du meine Antwort schon richtig interpretiert.

Durch ein einfaches +0 kommst Du trotzdem nicht auf eine Binärdarstellung einer Dezimalzahl!



gibt immer noch 10 aus und nicht 1010.

@renee

O.K., jetzt verstehe ich auch, daß Du mit meinem Posting nichts anfangen konntest ;o)

Gruß, Doc

Ich dachte bei Binärrepräsentation eher an etwas, was man aus dem Text per pack('C4', split(/\./, $input, 4)) produzieren kann.