Subversion Repositories sysadmin_scripts

#! /usr/bin/perl -w

#! /usr/bin/env perl

my @input = <>;

use warnings;

chomp @input;

use strict;

my $lastClient = '';

use YAML::Tiny;

#print scalar( @input ) . "\n";

use Data::Dumper;

@headers = split( "\t", shift(@input)  ) ;

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

foreach my $line (sort @input) {

my @data = Load($input);

   @values = split( "\t", $line ); 

my $hashref = $data[0];

   my %record = map{ $headers[$_],$values[$_] } (0 .. $#values);

#print Dumper( $hashref );

   if ( $lastClient ne $record{'# Client'} ) {

foreach my $group ( sort keys %$hashref ) {

      $lastClient = $record{ '# Client' };

   if ( $group ) { # only do a group header if it is not empty

      print "#########################################\n";

      my $header = '#'x10 . " $group " . '#'x10;

      print "#   " . $record{ '# Client' } . "\n";

      my $length = length( $header );

      print "#########################################\n";

      print "\n" . join( "\n", ( '#'x$length, $header, '#'x$length ) ) . "\n";

   foreach my $key ( sort keys %record ) {

   foreach my $host ( sort keys %{$hashref->{$group}} ) {

      next if $key eq '# Client';

      print "\nHost " . $host . "\n";

      print $key . ' 'x(10-length($key)) . $record{$key} . "\n" if $record{$key};

         print "$key $hashref->{$group}->{$host}->{$key}\n";