mehrere hashes übergeben an Sub (Allgemeines zu Perl)

[thread]16320[/thread]

mehrere hashes übergeben an Sub

Readers: 26

Articles: hide open all | hide show old branches

+7 replies
jan99

2011-05-19 15:40
User since
2008-09-18
439 articles
BenutzerIn
hi !

ich komme mal wieder mit meiner alten Baustelle - Hash-Übergabe.

Ich habe 3 hashes
Code (perl): (dl )

1 2 3 4 5 6

my %config=( debug=>0, # Kontrollausgaben .... ); my %stop_id = (); my %stop_name = ();
diese sollen jetzt an eine Sub übergeben werden
Code (perl): (dl )

ReportErstellen ($fh, "highway = bus_stop", $osm, \%stop_id, \%stop_name, \%config);
Wenn ich in der Funktion
Code (perl): (dl )

1 2 3 4 5 6 7 8

sub ReportErstellen { my $file = shift; my $title = shift; my $osm_data = shift; my %poi_id_ref = shift; my %poi_name_ref = shift; my %conf_ref = shift;
auf die Daten zugreifen, dann kommen die hashes nicht richtig an.

Könnte mir jemand freudlicherweise mal aufzeigen wie es richtig wäre.

Wenn nur EIN Hash übergeben wird und dieses als letzter Parameter übergeben wird, dann würde ich hierfür @_ nehmen. Das hat funktioniert.

Gruß Jan .-)
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- bianca
  
  2011-05-19 15:46
  
  User since
  2009-09-13
  7016 articles
  BenutzerIn
  
  Willst du wirklich das Hash übernehmen oder eine Referenz?
  Bei letzterem musst du my $poi_id_ref = shift; usw. notieren.
  10 print "Hallo"
  20 goto 10
- +4 replies
- MatthiasW
  
  2011-05-19 15:50
  User since
  2008-01-27
  367 articles
  BenutzerIn
  Du übergibst sie als Referenzen (richtig) versuchst sie aber anders entgegenzunehmen. In der Routine musst du sie erst dereferenzieren, oder mit den Referenzen weiter machen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  sub ReportErstellen { my $file = shift; my $title = shift; my $osm_data = shift; my %poi_id_ref = %{shift}; my %poi_name_ref = %{shift}; my %conf_ref = %{shift}; #oder: my $poi_id_ref = shift; $poi_id_ref->{key} = value; # hier dereferenziert der -> Operator
  
  Bei ersterem werden die Hashes kopiert, Änderungen gelten also nur innerhalb der Routine, bei letzterem nicht.
  
  MfG
  perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
  - +3 replies
  - jan99
    
    2011-05-19 16:06
    
    User since
    2008-09-18
    439 articles
    BenutzerIn
    
    Hi !
    
    wenn ich die erste Variante verwende, was auch ausreicht da in der Sub die Daten nur ausgelesen werden komme ich die Meldung
    
    Quote
    Ambiguous use of %{shift} resolved to %shift at svhl_check.pl line 368.
    Ambiguous use of %{shift} resolved to %shift at svhl_check.pl line 369.
    Ambiguous use of %{shift} resolved to %shift at svhl_check.pl line 370.
    
    Kann mir einer sagen was das denn bedeutet?
    
    Gruß Jan .-)
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
    - pq
      
      2011-05-19 16:11
      
      User since
      2003-08-04
      12208 articles
      Admin1
      
      du musst %{shift()} schreiben.
      "Ambiguous use of %{shift} resolved to %shift"
      heisst frei übersetzt
      "Der mehrdeutige Ausdruck %{shift} wurde als %shift interpretiert" (und %shift ist einfach ein hash namens shift).
      wenn du die klammern dahintersetzt, erkennt perl es als funktionaufruf.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - bianca
      
      2011-05-19 16:11
      
      User since
      2009-09-13
      7016 articles
      BenutzerIn
      
      2011-05-19T14:06:50 jan99
      wenn ich die erste Variante verwende, was auch ausreicht da in der Sub die Daten nur ausgelesen werden komme ich die Meldung
      
      Gerade dann solltest du die zweite nehmen, damit der Hash nicht kopiert wird, das ist ja unnötige Speicherverschwendung.
      
      Edit Zusatz:
      Variante 1 sollte man immer nur dann nehmen, wenn man den Hash ganz bewußt in der sub als Kopie haben möchte, um dort Werte verändern zu können, die sich nicht auf das Hauptprogramm auswirken sollen.
      In allen anderen Fällen am besten nur Referenzen, egal ob gelesen oder auch geschrieben wird.
      Last edited: 2011-05-19 16:13:18 +0200 (CEST)
      10 print "Hallo"
      20 goto 10
- rosti
  
  2011-05-19 19:10
  User since
  2011-03-19
  3463 articles
  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 )
  
  1 2 3 4 5 6 7 8 9 10
  
  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.

View all threads created 2011-05-19 15:40.