13 lines
229 B
Perl
13 lines
229 B
Perl
|
open(IN, "<$ARGV[0]") or die "Error: $!";
|
||
|
|
my @lines=<IN>;
|
||
|
|
close(IN);
|
||
|
|
|
||
|
|
foreach my $line (@lines)
|
||
|
|
{
|
||
|
|
$line =~ s/\x00//gi;
|
||
|
|
while($line =~ m/ServerAddress.*?(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/gi)
|
||
|
|
{
|
||
|
|
print "$1";
|
||
|
|
}
|
||
|
|
}
|