übergabe an sub (gelöst) (Allgemeines zu Perl)

[thread]15287[/thread]

übergabe an sub [gelöst]

Leser: 34

Articles: hide open all | hide show old branches

+4 replies
jan999

2010-07-16 10:47
User since
2009-04-02
109 Artikel
BenutzerIn
hi !

ich habe folgendes - vereinfacht zusammengebaut:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

my %config=( osmfile=>'', deffile=>'', # Name der Definitionsdateien für die Auswertung icon_size=>"20,20", # Defaultgroesze für die Icons icon_offset=>"10,10", # Versatz der Icons rel_folder_icon=>"icon/", # relative Angabe zu den Icons auf dem Webbrowser image_size=>"100,50", # Defaultgroesze für die Bilder die ggf. eingefunden werden rel_folder_image=>"image/", # relative Angabe zu den Bildern auf dem Webbrowser local_folder_image=>"image/", # Verzeichnis mit eventuell einzubindende Bilder local_folder_poi=>"poi/", # Verzeichnis für die Ablage der POI-Dateien local_folder_report=>"report/", # Verzeichnis für die Ablage der Reports local_folder_wiki=>"wiki/", # Verzeichnis für die Ablage der Reports verbose=>1 , ); .... OsmPM_open_files($poi_defintion->{title}, %config);
in der Sub steht dann am Anfang:
Code (perl): (dl )

1 2 3 4 5 6 7 8

sub OsmPM_open_files { my $title = shift; my %conf = shift; print Dumper(%conf); ... }
Wenn das ganze gestartet wird kommt die Meldung:

Quote
Odd number of elements in hash assignment at poi_map_dev.pl line 151.

Nach meiner bisherigen Suche liegt hier wohl ein Fehler bzgl. der Datenentnahme (Hash aus Hash) vor. Irgendwie verstehte ich das aber nicht so ganz!

Deine Dump-Ausgabe direkt vor dem Aufrufen der Sub liefert:

Quote
$VAR1 = 'verbose';
$VAR2 = 1;
$VAR3 = 'image_size';
$VAR4 = '100,50';
$VAR5 = 'local_folder_wiki';
$VAR6 = 'wiki/';
$VAR7 = 'local_folder_report';
$VAR8 = 'report/';
$VAR9 = 'local_folder_poi';
$VAR10 = 'poi/';
$VAR11 = 'rel_folder_icon';
$VAR12 = 'icon/';
$VAR13 = 'icon_size';
$VAR14 = '20,20';
$VAR15 = 'deffile';
$VAR16 = 'definition/fuel_station.dat';
$VAR17 = 'local_folder_image';
$VAR18 = 'image/';
$VAR19 = 'icon_offset';
$VAR20 = '10,10';
$VAR21 = 'rel_folder_image';
$VAR22 = 'image/';
$VAR23 = 'osmfile';
$VAR24 = 'osm/dogbag_world.osm';

und in der Sub nur noch...

Quote
$VAR1 = 'verbose';
$VAR2 = undef;

Kann mir einer weiterhelfen ?

Gruß Jan :-)
- +2 replies
- moritz
  
  2010-07-16 10:59
  User since
  2007-05-11
  923 Artikel
  HausmeisterIn
  Hashes werden beim Uebergeben an Subroutinen "flach" gemacht, d.h. @_ in der routine ist eine lange List aus $title und den keys und values von %config.
  
  Es gibt zwei moeglichkeiten:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  sub foo { my $title = shift; my %config = @_; # Rest der Argumentliste ; } foo($title, %config);
  
  Oder uebergeben als Referenz:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  sub bar { my $title = shift; my %config = %{ shift(@_) }; ... } bar($title, \%config);
  
  Uebrigens bekommst du auch von Data::Dumper mit dem Backslash eine schoenere Ausgabe:
  
  Code (perl): (dl )
  
  print Dumper \%config;
  
  Perl 6 - Perls Zukunft
  - jan999
    
    2010-07-16 11:26
    
    User since
    2009-04-02
    109 Artikel
    BenutzerIn
    
    danke !
- pq
  
  2010-07-30 10:30
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  hab den thread mal als gelöst markiert
  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

View all threads created 2010-07-16 10:47.