Perl regulären Ausdruck, eine IP-Adresse

Schreibe ich diesen code, aber es funktioniert nicht.
Kann jemand darauf hin, das Problem?

sub match_ip()
{
  my $ip = "The IP address is 216.108.225.236:60099";
  if($ip =~ /(\d{1-3}\.\d{1-3}\.\d{1-3}\.\d{1-3}\:\d{1-5})/)
  {
      print "$1\n";
  }
}

BEARBEITEN:
Ich wollte nur extrahieren Sie die IP-Adresse, nicht an die Validierung.

  • Statt zu schreiben Ihre eigenen regex möchten Sie vielleicht zu prüfen, mit einem gut dokumentierten und getesteten module f.ex. Regexp::Common
  • Es gibt mehr als ein paar Probleme hier. Verwenden Sie eines der Module, oder schauen Sie auf all die Dinge, die Module tun, um es richtig zu machen. 🙂
  • Sind Sie versuchen, zu überprüfen oder einfach nur extrahieren Sie die IP-Adresse? Verursachen Sie einen schrecklichen job des ehemaligen.
  • Ich will nur extrahieren, nicht überprüfen
  • Gut, Sie will auch nicht zu extrahieren Dinge, die nicht sein können, IP-Adressen, so dass die Validierung, die ist extrem einfach zu tun, hilft bei der Reduzierung der false-positives.
  • Die Sache ist die, nur für die überprüfung, ich möchte nicht, dass meine script-abhängig von einem beliebigen Modul. Ich gehe davon aus, dass nur gültige IP-Adresse in der Datei die ich bin-Verarbeitung.

InformationsquelleAutor cppcoder | 2012-04-15
  1. 11

    Ändern {1-3} zu {1,3} gleiche für {1-5} -> {1,5}

    • Funktioniert wie ein Charme.. Danke
    • Du bist herzlich willkommen.
    • Zu downvoter: irgendeinen Grund ?
    • Ist das eine akzeptable Antwort für Sie? Wie ich bereits erwähnt habe, manchmal OP will einfache Lösung, sein problem zu lösen, nicht einen komplexen code. In diesem Fall werden keine IP-Verifikation nötig ist, wie wohl die OP-Bedürfnisse zu analysieren, die Ausgabe enthält die gültigen IP-Adressen. Also diese Antwort ist genau das, was OP sucht. Dank M42-post die simple Antwort ist, dass treffen OP ' s braucht.
    • Danke. Die ersten 3 Antworten richtig sind, nach OP. Deshalb habe ich von Ihnen positiv bewertet werden die 2 anderen als meine.
    • Mein Beitrag (Antwort) auf den Boden, wurde downvoted ohne Grund von #briandfoy und seine Anhänger, also habe ich versucht, zu kommentieren, Ihre Antwort für ihn zu zeigen, dass diese Antworten sind gut. Yours Antwort war sehr erste, so dass Sie verdienen upvotes und Akzeptanz.
    • Diese Antworten, die der regex-Problem, aber nicht die Aufgabe Problem. Ich glaube nicht, dass diese Bedürfnisse erfüllt, nur die will. Die beiden sind oft im Widerspruch.
    • richtig, aber das ist, was der OP will, löst die regex-Problem.
    • Richtig, M42. Es wurde gelöst durch die regex, wie OP gefragt. Leider #briandfoy sehr oft versuchen, ändern Sie die einfachen Aufgaben bis zu komplexen Fragestellungen, die in den meisten der Zeit ist nicht das, was OPs wollen.

    InformationsquelleAutor Toto
  2. 5

    In den Geist der TIMTOWTDI hier ist ein anderes: die Regexp::Common::net Teil Regexp::Common haben kann regexen, die Sie wünschen.

    InformationsquelleAutor Joel Berger
  3. 3

    Alternativ können Sie Data::Validate::IP, mit dem VORBEHALT, dass es nicht erkennt, den Hafen, also müssen Sie split auf :.

    use strict;
use warnings;
use Data::Validate::IP;

my $ip_with_port="216.108.225.236:60099";
my $ip=(split /:/,$ip_with_port)[0];

my $validator=Data::Validate::IP->new;

if($validator->is_ipv4($ip))
{
  print "Yep, $ip is a valid IPv4 address.\n";
}
else
{
  print "Nope, $ip is not a valid IPv4 address.\n";
}

    Ausgabe:

    Yep, 216.108.225.236 is a valid IPv4 address.
    • Die OP ' s Frage zu finden, ist ein match (regex), nicht die Validierung der IP-Adresse. Ihrem Skript verwenden-IP-Adresse als Eingabe, aber OP ' s input ist ein string, der enthalten möglicherweise die IP-Adresse, aber nicht nur IP-Adresse.
    • TIMTOWTDI. Darüber hinaus a) die OP wurde versucht, zusammen eine regex um IP-Adressen überprüft und b) wenn man sich den source-code der Data::Validate::IP, verwendet es regexes. Also meine Antwort ist relevant, ob Sie es wollen oder nicht.
    • Warum so starke Worte? Ich mag deine Antwort, aber ich kommentierte Ihre Antwort für einen und einzigen Grund - ich sehe nicht in OP ' s Frage, jeden Hinweis, dass er auf der Suche nach IP-Validierung... und ich sehe es nicht, es gibt sogar jetzt, wenn Ihr Kommentare, die sagen, die OP ist zu Fragen, für, die. Trotzdem... Dein code ist die richtige Lösung für IP-Validierung. Zeitraum. Nur nicht sicher, ob das ist, was der OP will. Vielleicht kommt er ja wieder zu uns zurück und klären seine Bedürfnisse...
    InformationsquelleAutor
  4. 2

    Ersetzen Sie die Striche durch Kommas.

    /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\:\d{1,5})/
    InformationsquelleAutor jsf80238
  5. 2

    Zwar gibt es gut dokumentierte und getestete Module auf CPAN zu entsprechen und überprüfen von IP-Adressen, aber es muss einen festen Grund für Sie, es nicht zu verwenden. Ich persönlich hatte nie einen wirklichen Grund Sie zu verwenden für die Validierung Zweck, da ich trusted/gefüttert die Eingabe.

    Hier ist eine kürzere version von deinem regex, mit seinen eigenen Tücken:

    while (my $ip = <DATA>)  {
    chomp $ip;
    # older version
    # if($ip =~ /(\d{1-3}\.\d{1-3}\.\d{1-3}\.\d{1-3}\:\d{1-5})/)

    # see below for explanation
    if ($ip =~ /\b(\d{1,3}(?:\.\d{1,3}){3}:\d{1,5})\b/)
    {
        print "$ip - matches\n";
    } else {
        print "$ip - does not match\n";
    }
}

__DATA__
216.108.225.236:60099
4.2.2.1:1
216.108.225.236:0
1216.1108.1225.1236:1234
216.108.225.236x:123
9216.108.225.236:8472
10.10.10.10

    Ergebnisse:

    216.108.225.236:60099 - matches
4.2.2.1:1 - matches
216.108.225.236:0 - matches
1216.1108.1225.1236:1234 - does not match
216.108.225.236x:123 - does not match
9216.108.225.236:8472 - does not match
10.10.10.10 - does not match

    Erklärung:

    /\b             # word boundary
(               # start memory capture group 1
\d{1,3}         # one to three digits, first octat
(:?             # start non memory capture group, notice ?:
  \.\d{1,3}     # a literal dot followed by an ip octet
)               # end non memory capture group
{3}             # three times of dots and ip octets
:               # match a colon
\d{1,5}         # port number, one to five digits
)               # end of memory capture group 1
\b              # word boundary

    Hoffe, das hilft.

    • Wenn Sie dieses tun, viel Arbeit, könnte man genauso gut machen, den regex-match die richtige Auswahl von Ziffern. Sollten Sie testen, für Dinge wie 127.1 auch eine gültige Adresse, die verwendet werden, mich zu beissen wenn ich das machen würde, diese Art der Sache falsch.
    • Ihre test-Daten unvollständig sind. So etwas wie 333.108.225.236:123 ist eine ungültige IP-Adresse, aber würde Ihren pass zu überprüfen.
    • Brian : Sie müssen haben verpasst", da ich trusted/gefüttert der Eingang " in Ashish Beschreibung. Auch irgendwann mit den externen Modulen ist nicht möglich, nicht erwünscht, nicht erwünscht, in diesem Fall eine "manuelle" Lösung ist erwähnenswert.
    InformationsquelleAutor Ashish Kumar
  6. 1

    Dies könnte helfen:

    my $ip = "195.249.61.14";

my @ips = (
    "set protocols bgp group IBGP-RRCL-CUSTOMER neighbor 195.249.61.142",
    "set protocols bgp group IBGP-RRCL-CUSTOMER neighbor 195.249.61.14",
    "set protocols bgp group IBGP-RRCL-CUSTOMER neighbor 195.249.61.141"
);

foreach (@ips) {
   print "$_\n" if ( /\b$ip\b/ );
}

    Ausgabe:

    set protocols bgp group IBGP-RRCL-CUSTOMER neighbor 195.249.61.14
    InformationsquelleAutor Tomas Jensen
  7. 0

    http://metacpan.org/pod/Regexp::Common::net

    Wenn Sie extrahieren eine IP-Adresse, nicht eine IP-Adresse... Sie sind nicht das extrahieren der richtige.

    InformationsquelleAutor user1989484
  8. 0
    #!/usr/bin/perl

$str = 'IP address is : 70.21.311.105';

    if ($str =~ m/(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/) {
        if ($1 <= 255 && $2 <= 255 && $3 <= 255 && $4 <= 255 ) {
            print "Valid $str\n";
    } else {
          print "invalid IP $str\n";
    }
}


__END__
    • Keine Notwendigkeit der zweiten if condition, die geschrieben werden können mit der ersten wie in diesem if($str =~ m/(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/ && ($1<=255 && $2<=255 && $3<=255 && $4<=255 ))
    InformationsquelleAutor Kumud Raj
  9. 0

    Versuchen Sie dies: 

    $variablename=~m/((((0-9)|((1-9)(0-9))|(1([0-9]){2})|(2[0-4][0-9])|(2[5][0-5]))\.){3})((0-9)|((1-9)(0-9))|(1([0-9]){2})|(2[0-4][0-9])|(25[0-5]))/)
    • Bitte formatieren Sie Ihren code als code.
    InformationsquelleAutor Perlgrammer
  10. 0
    use strict;
use warnings;
open(FH,"<fileName.txt") or die "file not found ,$_";
while(my $line=<FH>)
{
push(my @arr,($line));
foreach my $arrVal (@arr)
{           
if($arrVal=~/IPv4 Address(?=.*\b((25[0-5]|2[0-4]\d|[0-1]?\d?\d)(\.(25[0-5]|2  [0-4]\d|[0-1]?\d?\d)){3})\b)/)
{
print "$arrVal\n";
}
}
    • Obwohl dieser code kann die Frage beantworten, die zusätzliche Bereitstellung von Kontext in Bezug auf warum und/oder wie es antwortet auf die Frage deutlich verbessern würde seinen langfristigen Wert. Bitte Bearbeiten Ihre Antwort, um einige Erklärung.
    InformationsquelleAutor Devendra
  11. -1

    Können Sie auch mit der folgenden regex, um sicherzustellen, dass die quad ' s sind nicht größer als 255, so wird es auch "greift" die Ziffer matching anstelle von copypasting es 4 mal. 

    my $rx = qr/^(?!(\.))(\.?(\d{1,3})(?(?{$^N > 255})(*FAIL))){4}$/;
if('192.168.1.2' =~ $rx){
  print "OK\n";
}

    Es verwendet einige features aus perl-regex-matching (man perlre):

    • (*FAIL): Stoppt die pattern-matching und scheitert
    • (?(Bedingung)...): bedingte match
    • (?{ code }): innerhalb dieser Bedingung
    • Dies scheitert für $rx = "27.34"
    InformationsquelleAutor CowboyTim
  12. -2
    $ip = "10.255.256.1";

# will accept valid ips
if ($ip =~ m/^([1|2][0-9]{1,2})\.([0-255]{1,3}\.){2}[0-255]{1,3}/ && ($1 <=255)) {

  print "This is a valid ip: $ip \n";
 } else {
   print "This is not a valid ip: $ip \n";
}
    • -1 Sie sind die Neuerfindung Wasser, schlecht. Dieser verbietet jede Adresse, deren erste Oktett ist >= 200, für den Anfang.
    • Ich denke, Sie sollten erfahren Sie mehr über Ip address.Class C-Adresse wird nicht >=200.in der Regel werden wir prüfen für Klasse-c-Adresse nur.lassen Sie mich wissen, wenn Sie überprüfen würden, die für anderen Klasse Adresse
    • Was bedeutet class-C-Netze haben mit irgendwas zu tun? In der modernen Welt werden die Netze classless sowieso. Und die OP ' s Beispiel-Adresse 216.x.x.x. Und [0-255] im regex nicht zu tun, was Sie tun sollten.
    InformationsquelleAutor user2662353
Schreibe einen Kommentar