#!/usr/bin/perl

use strict;
use warnings;

for (qw/SysInfo/) {     # nur zum Testen
  $_ = 'test';
}

sub new {
   my $Class = shift;
   my %Param;

   if (ref $_[0] eq 'HASH') {
      %Param = %{$_[0]};
   }
   elsif (@_ & 1) {
      die 'Statistics: not enough arguments ...';
   }
   else {
      %Param = @_;
   }

   for (keys %Param) {
      die "Statistics: invalid argument $_"
         unless /^(SysInfo|ProcStats|MemStats|PgSwStats|NetStats|SockStats|DiskStats|DiskUsage|LoadAVG|Processes|TimePoint)$/;
   }

   my $Self = bless(\%Param,$Class);

   return $Self;
}

sub getStats {
   my $Param = shift;
   my $Class = shift;

   ...
   ...

$stats->{'ProcStats'}->{'ProcUser'}
...
my %file = (
   'passwd'     => '/etc/passwd', # den key meine ich hier

print ' ' x 2 . "$key" . ' ' x (30-length($key)) . "$value\n";

return undef;

open FH, "<$file" or ...
# ist alt
open FH, '<', $file or ...
# ist besser.

open my $handle, '<', $file or ...

for (@sys{keys %sys}) { 
      chomp; # defaut $_ paßt so
      s/\t/ /g; # und hier auch
      s/\s+/ /g;
}

@stat{qw/ProcUser ProcNice ProcSystem ProcIdle ProcIOWait/} = split /\s+/, $1;

@stat{qw/PageIn PageOut/} = ($1, $2);

... = (split /\s+/, <PRC>)[0..6,9..18,21..22,35..36,38];

$disk{$3}{'DiskMajor'}          = $1;
$disk{$3}{'DiskMinor'}          = $2;
$disk{$3}{'DiskReadRequests'}   = $4;
$disk{$3}{'DiskReadBytes'}      = $6 * $block_size;
$disk{$3}{'DiskWriteRequests'}  = $8;
...

# besso so

for my $alias ($disk{$3}) {
  $alias->{DiskMajor}          = $1;
  $alias->{DiskMinor}          = $2;
  $alias->{DiskReadRequests}   = $4;
  $alias->{DiskReadBytes}      = $6 * $block_size;
  $alias->{DiskWriteRequests}  = $8;
  ...
}