Subversion Repositories sysadmin_scripts

#! /usr/bin/env perl

use warnings;
use strict;

use YAML::Tiny;
use Data::Dumper;

my $input = join( '', <> );


my @data = Load($input);
my $hashref = $data[0];

#print Dumper( $hashref );
#die;

foreach my $group ( sort keys %$hashref ) {
   if ( $group ) { # only do a group header if it is not empty
      my $header = '#'x10 . " $group " . '#'x10;
      my $length = length( $header );
      print "\n" . join( "\n", ( '#'x$length, $header, '#'x$length ) ) . "\n";
   }
   foreach my $host ( sort keys %{$hashref->{$group}} ) {
      print "\nHost " . $host . "\n";
      foreach my $key ( sort keys %{$hashref->{$group}->{$host}} ) {
         print "$key $hashref->{$group}->{$host}->{$key}\n";
      }
   }
}

1;