Warum wird die Abfrage übersprungen (Allgemeines zu Perl)

[thread]18563[/thread]

Warum wird die Abfrage übersprungen

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+7 replies
jan99

2013-09-05 10:58
User since
2008-09-18
439 Artikel
BenutzerIn
Hi !

ich habe folgenden Code:
Code: (dl )

1 2 3 4 5 6 7 8 9 10

sub { ... print Dumper($lat_1)."\n"; print Dumper($lon_1)."\n"; return -1 if (undef $lat_1 || undef $lon_1 || undef $lat_2 || undef $lon_2); ... }
und bekomme folgendes Protokoll:

Quote
$VAR1 = undef;
$VAR1 = undef;

Aber warum wird der Code unterhalb des return-Befehls weiter ausgeführt und nicht die Funktion verlassen wie zu erwarten?

Gruß Jan :-)
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- +6 replies
- payx
  
  2013-09-05 11:21
  
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  
  Hallo jan99,
  
  undef "undefines the value", d.h. es setzt die Variable zurück.
  
  Du solltest prüfen if (! defined $lat_1 || ! defined $lon_1) usw. oder if (not defined $lat_1 or not defined $lon_1) usw. oder unless (defined $lat_1 && defined $lon_1) usw.
  
  HTH
  Grüße
  payx
  
  PS: perlfunc undef: "Always returns the undefined value." - also false (anders als viele andere Befehle, die nach erfolgreicher Ausführung einen wahren Wert zurückliefern). Deshalb war Dein if immer false.
  
  Editiert von payx: PS
  Last edited: 2013-09-05 11:37:30 +0200 (CEST)
  - +5 replies
  - jan99
    
    2013-09-05 11:43
    
    User since
    2008-09-18
    439 Artikel
    BenutzerIn
    
    danke !
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
    - +4 replies
    - jan99
      
      2013-09-05 11:55
      
      User since
      2008-09-18
      439 Artikel
      BenutzerIn
      
      hi !
      
      ich ergänze nochmal. Wie würdet Ihre eine Abfrage auf wenn nicht definiert und Leerstring ist machen?
      
      Code: (dl )
      
      1 2
      
      return " " if (! defined $coord_soll); return " " if ($coord_soll eq '');;
      
      ist wohl etwas aufwendig ?
      
      Gruß Jan :-)
      perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
      - +2 replies
      - Raubtier
        
        2013-09-05 12:48
        
        User since
        2012-05-04
        1076 Artikel
        BenutzerIn
        
        Code (perl): (dl )
        
        return " " unless $coord_soll;
        
        Der Leerstring ist false, defined ist false, also geht das "einfach so".
        
        Edit: ok, eine Einschränkung: $coord_soll darf nicht 0 sein.
        Last edited: 2013-09-05 12:50:12 +0200 (CEST)
        
        jan99
        
        2013-09-05 14:32
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        hi !
        
        und wie würdest Du es schreiben, wenn auch der Wert 0 vorkommen kann. Geokoordinaten haben in der Regel Werte von -90 bis +90 bzw. -180 bis +180.
        
        Gruß Jan :-)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
      - Linuxer
        
        2013-09-05 14:35
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Naja, Perl kennt doch auch Oder-Verknüpfungen:
        
        Code: (dl )
        
        return "bla" if !defined($what) || '' eq $what;
        
        oder
        
        Code: (dl )
        
        return "bla" if !defined($what) || 0 == length($what);
        
        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!

View all threads created 2013-09-05 10:58.