28 lines
646 B
Plaintext
28 lines
646 B
Plaintext
|
#!/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 $_;
|
||
|
|
}
|