mirror of
https://github.com/xcat2/xcat-core.git
synced 2025-05-29 09:13:08 +00:00
29 lines
678 B
Perl
Executable File
29 lines
678 B
Perl
Executable File
#!/usr/bin/env perl
|
|
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
|
#use Data::Dumper;
|
|
my %output;
|
|
while (<STDIN>) {
|
|
my $node;
|
|
my $output;
|
|
if (/:/) {
|
|
($node, $output) = split /:/, $_, 2;
|
|
} else {
|
|
$node = "UNKNOWN";
|
|
$output = $_;
|
|
}
|
|
$output =~ s/^ //;
|
|
$output{$node} .= $output;
|
|
}
|
|
my %collated;
|
|
foreach (keys %output) {
|
|
$collated{ $output{$_} }->{$_} = 1;
|
|
}
|
|
foreach (keys %collated) {
|
|
my $nodes = join(',', sort (keys %{ $collated{$_} }));
|
|
print "====================================\n";
|
|
print "$nodes\n";
|
|
print "====================================\n";
|
|
print $_;
|
|
print "\n";
|
|
}
|