warum kommt diese Fehlermeldung (gelöst) (Allgemeines zu Perl)

[thread]20485[/thread]

warum kommt diese Fehlermeldung [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+5 replies
Traceman

2018-07-07 14:21
User since
2014-07-02
6 Artikel
BenutzerIn
Hallo,

bei der Auswertung von Adressbüchern kommt es vor, daß der Vorname fehlt. Deshalb steht in meiner Datei:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12

#!/usr/bin/perl use strict; use warnings; use POSIX; use Switch; use Text::vCard::Addressbook; ... my $node_n = $vcard->get({ 'node_type' => 'N' })->[0]; print STDERR " " . $node_n->given() if (defined $node_n->given);
in der letzen Zeile kommt manchmal die Fehlermeldung:

Quote
Can't call method "given" on an undefined value at /var/www/html/phonebook.xml line xxx.

Was habe ich falsch gemacht? Ich dachte durch den den If-Zweig wird die Ausgabe nur beim Vorhandensein des Vornamens ausgegeben.

Hardy
- +4 replies
- GwenDragon
  
  2018-07-07 15:03
  User since
  2005-01-17
  14533 Artikel
  Admin1
  $node_n ist nicht definiert.
  Du prüfst aber nur ob $node_n->given existiert.
  
  So z. B. kannst du das machen:
  
  Code: (dl )
  
  1 2 3
  
  if (defined $node_n) { print STDERR " " . $node_n->given() if defined $node_n->given; }
  
  Editiert von GwenDragon: Klammer entfernt
  Last edited: 2018-07-08 10:30:09 +0200 (CEST)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - Traceman
    
    2018-07-08 02:09
    
    User since
    2014-07-02
    6 Artikel
    BenutzerIn
    
    Hallo GwenDragon,
    
    an diesen Punkt hatte ich leider nicht gedacht, es war die Lösung.
    
    Vielen Dank
    
    Hardy
  - +2 replies
  - bianca
    
    2018-07-08 07:48
    
    User since
    2009-09-13
    6977 Artikel
    BenutzerIn
    
    Fehlt da nicht eine geschl. Klammer?
    10 print "Hallo"
    20 goto 10
    - GwenDragon
      
      2018-07-08 10:31
      
      User since
      2005-01-17
      14533 Artikel
      Admin1
      
      Oh, Danke für den Hinweis. Tippfehler.
      Ich hab es oben geändert.
      
      So stimmt es:
      
      Code (perl): (dl )
      
      print STDERR " " . $node_n->given() if defined $node_n->given;
      
      oder so:
      
      Code (perl): (dl )
      
      print STDERR " " . $node_n->given() if defined ($node_n->given);
      
      Wie eine* will.
      Last edited: 2018-07-08 10:32:19 +0200 (CEST)
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View all threads created 2018-07-07 14:21.