You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
448 B
20 lines
448 B
#!/usr/bin/perl
|
|
|
|
while ($line = <STDIN>) {
|
|
if ($line =~ /.*=(Random .*)SERVER:(.*):(.*)GROUP:.*/) {
|
|
$service = 'Random';
|
|
$servername = $1;
|
|
$server = $2;
|
|
$ports = $3;
|
|
print "$service\:$servername\:$server\:$ports\:\n";
|
|
}
|
|
elsif ($line =~ /.*=(.*): (.*)SERVER:(.*):(.*)GROUP:.*/) {
|
|
$service = $1;
|
|
$servername = $2;
|
|
$server = $3;
|
|
$ports = $4;
|
|
|
|
print "$service\:$servername\:$server\:$ports\:\n";
|
|
}
|
|
}
|