xcat-core/xCAT-client-2.0/usr/bin/xcoll

#!/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";
}