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

bloonix

2005-12-20 21:25

User since
2005-12-17
1615 Artikel
HausmeisterIn

Code: (dl )

     my @tm = (localtime)[reverse 0..5]; # time ist default, gleich richtig für spätere Array-Slices sortieren
     $tm[0] += 1900;
     $tm[1]++;
     $stats->{TimePoint}->{Time} = sprintf '%02d:%02d:%02d', @tm[0..2];
     $stats->{TimePoint}->{Date} = sprintf '%04d-%02d-%02d', @tm[3..5];

okay, es gibt einiges zu optimieren.

Code: (dl )

for (qw/SysInfo MemStats SockStats DiskUsage LoadAVG Processes/) {
  no strict 'refs';
  $stats->{$_}  = &$_() if $param{$_};
}

So ähnlich hatte ich es vorher und den Tipp hatte mir esskar schon
gegeben. Ich habe mich gegen die Schleife entschieden.

[quote=steffenw,20.12.2005, 19:48]
copy and past ist nicht Perl. Das machen alle die anderen, weil sie von der Programmiersprache allein gelassen werden.
[/quote]

Hä?

Das sehe ich nicht so. Perl lebt davon! Oder schreibst du deine Funktionen
so, dass man sie in keinem weiteren Skript nutzen kann? Ausserdem ist
Copy und Paste bei sich wiederholenden Vorgängen normal und nicht in
jedem Fall ist eine Schleife von Nutzem.

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.