Hash als Option missbrauchen - #60959 (Allgemeines zu Perl)

bloonix

2005-12-19 02:24

User since
2005-12-17
1615 Artikel
HausmeisterIn

Hallo,

oh je, ich komme einfach nicht weiter und hoffe, dass Ihr einen guten Rat
für mich habt und mir ein wenig weiterhelfen könnt.

Ich entwickel gerade einen eigenen Monitor für Linuxsysteme und habe mir
dafür ein eigenes Modul geschrieben. Nun weiß ich nicht so recht, wie ich
die Aufrufe realisieren soll, um die geforderten Daten zu sammeln.

Das, was ich bisher habe, schaut folgendermaßen aus:

(Beispiel)

Code: (dl )

my $stats = Statistics({
   ProcStats => 1,
   MemStats => 1,
   NetStats => 1,
   DiskStats => 1,
   DiskUsage => 1,
});

sub Statistics {
   my $param = shift;
   my $stats = {};

   foreach my $opt (keys %$param) {
      if ($opt eq 'ProcStats') {
         $stats->{ProcStats} = ProcStats();
      }
      elsif ($opt eq 'NetStats') {
         $stats->{NetStats} = NetStats();
      }
       # usw ...
   }

   return $stats;
}

Also mit der Funktion Statistics() bestimme ich die Daten, die gesammelt
werden sollen. Nun schaut das ganze für mich so ulkig aus, dass dort
einfach nur die 1en gesetzt werden und ich die Existenz eines Schlüssels
als Option missbrauche. Die Schlüssel haben zudem noch die gleichen
Namen wie Funktionen in dem Modul, die die Daten sammeln. Ich habe mir
schon Gedanken darüber gemacht, ob sich vielleicht etwas objekt-
orientiertes lohnen würde, weiß aber nicht so recht ...

Kann mir jemand einen Rat geben?

Greez,
opi

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.