mehrere hashes übergeben an Sub - #148848 (Allgemeines zu Perl)

rosti

2011-05-19 19:10

User since
2011-03-19
3470 Artikel
BenutzerIn

hi,

Code: (dl )

ReportErstellen ($fh, "highway = bus_stop", $osm, \%stop_id, \%stop_name, \%config);

Mein Vorschlag: Alles in eine HashRef ;)

sieht dann so aus:

Code (perl): (dl )

my $href = {
  FH       => $fh,
  STR      => "highway = bus_stop",
  OSM      => $osm,
  STOPID   => \%stop_id,
  STOPNAME => \%stop_name,
  CFG      => \%config,
};

ReportErstellen($href);

Du hast die Hashes nicht doppelt im ram und kannst in der sub{} mit exists prüfen, ob ein Key vorhanden ist. Du musst nur ein bischen aufpassen, was eine Referenz ist und was nicht, OSM und STR sind z.B. keine Referenzen.