if-abfrage ... warum nicht (Allgemeines zu Perl)

[thread]13524[/thread]

if-abfrage ... warum nicht

Leser: 27

Articles: hide open all | hide show old branches

+11 replies
jan999

2009-05-15 18:55
User since
2009-04-02
109 Artikel
BenutzerIn
hi !

ich habe folgendes stück code:
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 23 24 25 26 27 28

if (defined $g_TagAttrs{'site_type'} && length $g_TagAttrs{'site_type'} > 0) { print "==> site_type gefunden !!!\n"; if ($g_TagAttrs{'site_type'} eq 'megalith') { print ".."; }elsif ($g_TagAttrs{'site_type'} eq 'tumulus') { print "==> tumulus zugewiesen !!!\n"; $icon_name = 'tumulus'; }elsif ($g_TagAttrs{'site_type'} eq 'fortification') { print "==> fortification"; }elsif ($g_TagAttrs{'site_type'} eq 'bigstone') { print "==> bigstone"; } } # endif else { print "==> site_type NICHT gefunden !!!\n"; } } # endif - site_type
kann mir einer sagen warum bei $g_TagAttrs{'site_type'} = 'tumulus' nicht die entsprechende Abfrage mit wahr gefunden wird und print "==> tumulus zugewiesen !!! ausgegeben wird bzw. $icon_name den entsprechenden Wert zugewiesen bekommt ??

gruß Jan :-)
- +2 replies
- Linuxer
  
  2009-05-15 18:59
  
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  
  Wenn das nicht passiert, was passiert denn stattdessen?
  
  BTW: Dein CodeBeispiel enthält fehlerhafte Klammerung. Kontrollier und korrigier das bitte.
  Last edited: 2009-05-15 19:01:26 +0200 (CEST)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - roooot
    
    2009-05-15 19:47
    User since
    2008-03-03
    276 Artikel
    BenutzerIn
    
    Mach das lieber anders.
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
    
    my $site_type = $g_TagAttrs{'site_type'} || undef; my $lookup = { megalith => sub { print '..'; }, tumulus => sub { print "==> tumulus zugewiesen !!!\n"; $icon_name = 'tumulus'; }, fortification => sub { print "==> fortification"; }, bigstone => sub { print "==> bigstone"; } }; if (defined $site_type) { $lookup->{$site_type}->() if exists $lookup->{$site_type}; }
    
    Viel übersichtlicher, und viel einfacher zu warten.
    Last edited: 2009-05-15 19:50:15 +0200 (CEST)
    Viele Grüße :)
- +6 replies
- Dubu
  
  2009-05-15 20:31
  
  User since
  2003-08-04
  2145 Artikel
  ModeratorIn + EditorIn
  
  Höchstwahrscheinlich steht in der Variablen nicht das, was du denkst.
  Wild geraten, aber wohl der häufigste Fehler: Der Wert der Variablen wird aus einer Datei eingelesen, und es steht nicht "tumulus" darin sondern "tumulus\n", weil ein chomp() vergessen wurde. Bitte die Werte darauf prüfen (z.B. mit use Data::Dumper; $Data::Dumper::Useqq=1; ... print Dumper \%g_TagAttrs;).
  - +5 replies
  - jan999
    
    2009-05-17 14:02
    User since
    2009-04-02
    109 Artikel
    BenutzerIn
    
    moin !
    
    zu dem vorschlag mit dem Data::Dumper - kommt folgendes heraus:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10
    
    9.2777315 54.1269403 site_type:= tumulus --- megalith_type:= $VAR1 = { "_CATEGORY" => "historic", "site_type" => "tumulus", "historic" => "archaeological_site" }; ----------------- Bildname: acheolonical
    
    wobei $VAR1 = %g_TagAttrs ist.
    
    ... sehe ich nun mehr ???
    
    Gruß Jan :-)
    - +4 replies
    - sid burn
      
      2009-05-17 15:07
      
      User since
      2006-03-29
      1520 Artikel
      BenutzerIn
      
      Kannst du mal ein komplettes in sich lauffähiges Beispiel Posten? Also das wir aufrufen können, das bereits daten enthält und den von dir gezeigten Fehler enthält?
      
      Weil dein Code ist so volkommen okay, wenn ich selber vor deinem Code die Zeilen
      
      Code (perl): (dl )
      
      1 2 3 4
      
      my $icon_name; my %g_TagAttrs = ( site_type => 'tumulus', );
      
      und deine letzte zeile lösche, dann funktioniert es einwandfrei und ich bekomme als ausgabe.
      
      Code: (dl )
      
      1 2
      
      ==> site_type gefunden !!! ==> tumulus zugewiesen !!!
      
      Du hast also irgendwo anders ein Fehler. Entweder falscher Inhalt, variable ist leer oder sonst irgendetwas. Daher bitte einmal ein komplett in sich lauffähiges Programm Posten.
      Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
      - +3 replies
      - jan999
        
        2009-05-17 16:14
        
        User since
        2009-04-02
        109 Artikel
        BenutzerIn
        
        hi !
        
        ich versuche es einmal - es geht darum das daten von openstreetmap nach einem bestimmten objekt mit bestimmten werden durchsucht werden.
        
        bin allerdings noch ein perl-greenhorn.
        
        die funktion wird mit
        
        huenengrab.pl -osm albersdorf.osm -out osm_archaeologie.txt
        
        aufgerufen und die daten, einschl. osm, findet ihr unter
        
        huenengrab
        
        bei dem tool kommt später eine datei heraus in der die objekte extrahiert sind. nur damit das nicht gleich falsch gedeutet wird - ab und an wird eine tumulus gefunden !
        
        gruß jan :-)
        
        +2 replies
        
        Dubu
        
        2009-05-18 00:40
        
        User since
        2003-08-04
        2145 Artikel
        ModeratorIn + EditorIn
        
        Scheint alles zu funktionieren.
        Ein Tumulus wird aber natürlich nur dann ausgegeben und das Icon gesetzt, wenn der Eintrag auch einen Namen hat ($g_TagAttrs{'name'} ist definiert und hat Länge > 0).
        Das ist die if-Abfrage, die du uns unterschlagen hast. ;-)
        
        Gast jan999
        
        2009-05-18 06:42
        
        hi !
        
        danke erst einmal für den hinweis. da sieht man mal wieder was man von short auszug hat.
        
        danke - und dann werde ich einmal weitermachen können.
        
        jetzt sehe ich hoffentlich wieder licht im wald!
        
        gruß Jan :-)
- RPerl
  
  2009-05-16 13:10
  
  User since
  2006-11-26
  384 Artikel
  BenutzerIn
  
  Ich glaube ich wuerde given .. when verwenden dafuer. Sieht huebscher aus, benoetigt aber Perl Version 5.10.
  Auf aelteren Perl Interpretern gibt es aber auch entsprechende Module. Wobei ich da mal gehoert habe das die z.T. leider verbuggt sind (Switch).
- Crian
  
  2009-05-18 11:09
  
  User since
  2003-08-04
  5873 Artikel
  ModeratorIn
  
  Genrell hilft: Minimales kleines Gegenbeispiel basteln, das für sich lauffähig und so für jeden Leser nachvollziehbar ist.
  s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
  
  use strict; use warnings; Link zu meiner Perlseite

View all threads created 2009-05-15 18:55.