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

steffenw

2005-12-20 13:54

User since
2003-08-15
692 Artikel
BenutzerIn

Die foreach-Schleife ist doch völlig für'n Schrubber. Man nimmt doch einen Hash, weil man zugreifen kann und eben nicht wie in einem Array suchen muß. Das ist doch wesentlich performanter und auch viel leichter lesbar.

Code: (dl )

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

sub Statistics {
  my %param = @_;
  my %stats;
  if ($param{ProcStats}) {
    $stats{ProcStats} = ProcStats();
  } elsif ($param{NetStats}) {
    $stats{NetStats} = NetStats();
  } # usw ...
  return \%stats;
}

Wenn man die 1 nicht will, reicht auch undef. Dann wird nicht extra Speicher allociert, nur um da eine 1 hineinzupacken. Entweder macht man Parameterübergabe mit benannten Parametern wie oben oder schreibt die Optionen einfach nur hin.

Code: (dl )

my $stats = Statistics(qw/ProcStats MemStats NetStats DiskStats DiskUsage/);

sub Statistics {
  my %param = map +($_ => undef), @_;
  my %stats;
  if (exists $param{ProcStats}) {
    $stats{ProcStats} = ProcStats();
  } elsif (exits $param{NetStats}) {
    $stats{NetStats} = NetStats();
  } # usw ...
  return \%stats;
}

Außerdem möchte ich auf das Modul Params::Validate hinweisen.\n\n

$SIG{USER} = sub {love 'Perl' or die};