Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
$_ = join '', sort map "@{[ @$_{qw(Host GroupName)} ]}\n", @servers;
1 while s/^(.+$").*\K\n\1/,/m;
print;
  2. or download this
    server02 is in Groups serversA,serversB,serversC,serversD
server04 is in Groups serversA,serversB,serversC