ein paar fragen - hilfe :/: njaa perl halt ^^ - #5189 (Perl/CGI)

Ronnie

2005-07-10 18:02

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

Ich empfehle die Verwendung von Regexp::Common um IP-Adressen zu matchen:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

use Regexp::Common qw /net/;

open(INPUT, "<", "Datei.txt") or die "kann Datei.txt nicht lesen: $!\n";

while(<INPUT>) {
    print $1, "\n" if /IP-Adresse.*:\s*($RE{net}{IPv4})/; 
}

close(INPUT);