Array in Hash ? (Allgemeines zu Perl)

[thread]16409[/thread]

Array in Hash ?

Tags: perl5 Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+4 replies

jan99

2011-06-14 08:42

User since
2008-09-18
439 Artikel
BenutzerIn
[default_avatar]

moin !

ich habe ein hash um alle globalen Parameter in einer Variablen zu hinterlegen:

Code: (dl )

# main-parameeters
my %config=(
  debug=>0,                                              # Kontrollausgaben
  osmfile=>'svhl.osm',                                   # osm-daten
  svhl_data=>'haltestellen.txt',                         # liste vom stadtverkehr
  reportfile=>'svhl_reporting.html',                     # reportdatei
  color_nameno=>'#FF002A',                               # Farbe für die Namenskontrolle - kein Name vorhanden
  color_namediff=>'#FEB703',                             # Farbe für die Namenskontrolle - Namenswiderspruch, keine 100% Übereinstimmung
  color_nameok=>'#31F126',                               # Farbe für die Namenskontrolle - Übereinstimmung
  color_svhl=>'#FEFF00',                                 # Farbe für die Namenskontrolle - Übereinstimmung mit name:offical
  txt_busstop=>'highway = bus_stop',                     # Text für die Haltestelle
  txt_platform=>'public_transport = platform / stop_position'                     # Text für die Platform (dort wo der Bus hält)
 );

Nun habe ich einen Liste

my @tag_names=qw(fixme note name:offical note:ref:svhl);

die ich am liebsten in die config aufnehmen würde.

Mit dem Weg, wie nachfolgend beschrieben funktioniert es allerdings nicht ...

Code: (dl )

my %config=(
  debug=>0,                                              # Kontrollausgaben
  osmfile=>'svhl.osm',                                   # osm-daten
  svhl_data=>'haltestellen.txt',                         # liste vom stadtverkehr
  reportfile=>'svhl_reporting.html',                     # reportdatei
  color_nameno=>'#FF002A',                               # Farbe für die Namenskontrolle - kein Name vorhanden
  color_namediff=>'#FEB703',                             # Farbe für die Namenskontrolle - Namenswiderspruch, keine 100% Übereinstimmung
  color_nameok=>'#31F126',                               # Farbe für die Namenskontrolle - Übereinstimmung
  color_svhl=>'#FEFF00',                                 # Farbe für die Namenskontrolle - Übereinstimmung mit name:offical
  txt_busstop=>'highway = bus_stop',                     # Text für die Haltestelle
  txt_platform=>'public_transport = platform / stop_position',                     # Text für die Platform (dort wo der Bus hält)
  @notes=>qw(fixme note name:offical note:ref:svhl);
  );

kann mir einer von Euch weiterhelfen ??

Gruß Jan :-)

modedit Edited by renee: code-Tags eingefügt
Last edited: 2011-06-14 09:23:15 +0200 (CEST)

perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de

+2 replies
bianca

2011-06-14 08:57
User since
2009-09-13
7016 Artikel
BenutzerIn
Um ein normales Array aufzunehmen verwendest du eckige Klammern:
Code (perl): (dl )

1 2 3 4 5 6 7 8

#!/usr/bin/perl -w use strict; use warnings; use Data::Dumper; my %temp = ( notes => [qw(fixme note name:offical note:ref:svhl)], ); print Dumper (\%temp);
Code: (dl )

1 2 3 4 5 6 7 8

$VAR1 = { 'notes' => [ 'fixme', 'note', 'name:offical', 'note:ref:svhl' ] };
Editiert von bianca: Korrekturen
Last edited: 2011-06-14 09:00:46 +0200 (CEST)
10 print "Hallo"
20 goto 10
- Sven_123
  
  2011-06-14 09:11
  User since
  2010-06-01
  120 Artikel
  BenutzerIn
  Edit: Bin zu langsam...ersten Satz ignorieren. ;)
  qw erzeugt eine Liste - [qw/1 2 3/] geht also ebenfalls.
  
  Der Hintergrund ist, dass sowohl in Arrays, als auch in Hashes, direkt nur Skalare gespeichert werden können. Um einem Element trotzdem einen Array zuzuweisen, speichert man einfach eine Referenz auf einen bestimmten Speicherplatz, in dem dann der Array steht. Z.B.:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  @array = qw/a b c/; $arrayref = \@array; #\ erzeugt Referenzen auf das was danach kommt print "$arrayref\n"; #Da steht dann sowas wie ARRAY(0xae7d48) print @{$arrayref},"\n"; #Dereferenziert wieder %hash = (x => 1; y => $arrayref);
  
  Da dieses Beispiel erstens umständlich ist, und außerdem nachträgliche Änderungen in @array auch in deinem Hash auftauchen würden, da man genau auf diesen Array verweist, was aber meistens ungewollt ist, bedient man sich der eckigen Klammern, die in einem Schritt aus einer Liste eine Arraysreferenz erzeugen.
  Last edited: 2011-06-14 09:13:01 +0200 (CEST)
Gast wer

2011-06-14 11:04
Nutze ein anonymes Array:
Code (perl): (dl )

1 2 3

my %config=( notes=>[qw(fixme note name:offical note:ref:svhl)], );
Zugriff:
$config{notes}->[0] wert: "fixme"
@notes=@{$config{notes}}

wenn
$conf=\%config;

dann Zugriff:
$conf->{notes}->[1] wert: "note"
@notes=@{$conf->{notes}}

View all threads created 2011-06-14 08:42.