Regexp alle IP-Adressen

**chip**

Hi,

egal wie ich es auch versuche, ich werde mit regexp nicht warm oder anderes gesagt ich kapier es nicht.

Wäre jemand so nett und könnte mir ein Regexp machen welche mir alle IP-Adressen z.B. hieraus in einem Array schreibt.:

Code

<TABLE width="100%" border=0>
<TBODY>
<TR>
<TD align=center><A href="http://www.belwue.de/"><IMG border=0 alt=LG src="http://www.belwue.de/fileadmin/gfx/logo.gif"></A></TD></TR></TBODY></TABLE>
<CENTER>
<H2>BelWue Looking Glass - traceroute ip www.heise.de</H2>
<H4>IPv6 BGP queries must be in the format 'prefix/len'.<BR>(On route-server.belwue.de BGP is not injected into the routing-table.)</H4></CENTER>
<P>
<HR SIZE=2 width="85%" noShade>


<P><B>Router:</B> route-server.belwue.de <BR><B>Command:</B> traceroute ip www.heise.de 
<P><PRE><CODE>
Tracing the route to www.heise.de (193.99.144.85)
VRF info: (vrf in name/id, vrf out name/id)
  1 Stuttgart-NWZ-Server-gi7-35.belwue.net (129.143.103.77) 0 msec 0 msec 0 msec
  2 Stuttgart-NWZ-1-10GE-0-2-0-1.belwue.net (129.143.103.169) 0 msec 0 msec 0 msec
  3 Karlsruhe-RZ-1-10GE-0-0-0-1.belwue.net (129.143.59.210) 0 msec
    Karlsruhe-RZ-1-10GE-0-1-0-1.belwue.net (129.143.59.214) 0 msec
    Karlsruhe-RZ-1-10GE-0-6-0-2.belwue.net (129.143.60.11) 4 msec
  4 Frankfurt-DECIX-1-10GE-0-0-0-1.belwue.net (129.143.59.218) 4 msec
    Frankfurt-DECIX-1-10GE-0-1-0-1.belwue.net (129.143.57.178) 4 msec
    Frankfurt-DECIX-1-10GE-0-0-0-1.belwue.net (129.143.59.218) 4 msec
  5 te0-0-2-3.c150.f.de.plusline.net (80.81.192.132) 4 msec 4 msec 8 msec
  6 82.98.102.13 [AS <A href="lg.cgi?query=bgp&protocol=IPv4&addr=regexp+_12306_&router=route-server.belwue.de"><B>12306</B></A> [<A href="http://www.ripe.net/perl/whois?AS12306" target=_lookup>PLUSLINE</A>]] 4 msec
    82.98.102.9 [AS <A href="lg.cgi?query=bgp&protocol=IPv4&addr=regexp+_12306_&router=route-server.belwue.de"><B>12306</B></A> [<A href="http://www.ripe.net/perl/whois?AS12306" target=_lookup>PLUSLINE</A>]] 8 msec 4 msec
  7  *  * 
    212.19.61.13 [AS <A href="lg.cgi?query=bgp&protocol=IPv4&addr=regexp+_12306_&router=route-server.belwue.de"><B>12306</B></A> [<A href="http://www.ripe.net/perl/whois?AS12306" target=_lookup>PLUSLINE</A>]] !A 
</CODE></PRE>
<P>
<HR SIZE=2 width="85%" noShade>


<CENTER>
<TABLE width="85%">
<TBODY>
<TR>
<TD><FONT size=-3>Disclaimer: All commands will be logged for possible later analysis and statistics. If you don't like this policy, please disconnect now!</FONT></TD></TR></TBODY></TABLE></CENTER>
<P>
<CENTER><I>Please email questions or comments to <A href="mailto:ip@belwue.de">ip@belwue.de</A>. </I>
<P></CENTER></P>

Alles anzeigen

Edit: Hat sich erledigt, hab was passendes gefunden: "$answer = StringRegExp(_IEBodyReadHTMl($oIE),'((?:\d{1,3}\.){3}\d{1,3})',3)"

**alpines**

Das Problem mit dem Pattern das du im Moment hast ist das ungültige IP-Adressen mitgecaptured werden, ich weiß ja nicht in wie fern du davon betroffen bist aber ungültige Adressen wie "999.999.999.99" werden auch erfasst.
Es sollte aber genug IPv4-Patterns im Netz geben falls du ein gutes brauchst, die erfassen dann auch nur valide Adressen.

**AspirinJunkie**

Hier mit Bereichscheck und optionaler Extraktion einer Subnetzmaskenangabe:

AutoIt

Global $s_String = ClipGet()


Global $s_Pattern = "(?x)                                                                                                                     " & @CRLF & _
        "((?:(?:25[0-5]|2[0-4]\d|[01]\d\d|\d?\d)(?(?=\.?\d)\.)){4}\b)      # erste IP-Adresse (mit Wertebereichscheck)                        " & @CRLF & _
        "(?:                                                               # Beginn der optionalen Netzmaske                                  " & @CRLF & _
        "    \s?/?\s?                                                      # das optionale Trennzeichen mit eventuellen Leerzeichen           " & @CRLF & _
        "    \b(                                                           # falls etwas existiert soll es auch als Group gematcht werden     " & @CRLF & _
        "        ([1-9]|[0-2][0-9]|3[0-2])(?!\.)                           # Die Netzmaske als einfache Zahl (=Anzahl der 1-Bits in der Maske)" & @CRLF & _
        "        |                                                                                                                            " & @CRLF & _
        "        (?:(?:0|128|192|224|240|248|252|254)\.0\.0\.0)|(?:255\.(?:(?:(?:0|128|192|224|240|248|252|254)\.0\.0)|(?:255\.(?:(?:(?:0|128|192|224|240|248|252|254)\.0)|255\.(?:0|128|192|224|240|248|252|254|255)))))  # Die Netzmaske als IP-Maske                                       " & @CRLF & _
        "    )(?:[^\d]|$)                                                                                                                     " & @CRLF & _
        ")?"


$a_IP_Adresses = StringRegExp($s_String, $s_Pattern, 4)
For $a_IP_Adress in $a_IP_Adresses
   ConsoleWrite($a_IP_Adress[1])
   If UBound($a_IP_Adress) > 2 Then ConsoleWrite(@TAB & $a_IP_Adress[1])
   ConsoleWrite(@CRLF)
Next

Alles anzeigen