12 lines
229 B
Perl
12 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";
|
|
}
|
|
}
|