Warum Fehler bei gethostbyname ...? (gelöst) (Allgemeines zu Perl)

[thread]19558[/thread]

Warum Fehler bei gethostbyname ...? [gelöst]

Leser: 11

Articles: hide open all | hide show old branches

+6 replies
jan99

2015-03-17 12:07
User since
2008-09-18
439 Artikel
BenutzerIn
Moin!

ich habe eine Suche-und-Ersetze-Funktion in eine Sub gekapselt und dann in eine PM ausgelagert. Die sieht jetzt wie folgt aus:
Code (perl): (dl )

1 2 3 4 5 6 7 8

sub GetMonitorFilename{ my $hostname = shift || "localhost"; my $job = shift || "UNDEF"; my $name_of_this_machine = (gethostbyname ($hostname))[0]; $name_of_this_machine =~ tr/./$/; # das ist Zeile 50 return POSIX::strftime("%Y-%m-%d", localtime)."_".$name_of_this_machine."_".uc($job).".log"; }#end-GetMonitorFilename
Jetzt bekomme ich folgende Meldung:

Quote
Use of uninitialized value in transliteration (tr///) at C:/strawberry/perl/lib/
EBL/ebl.pm line 50.
Use of uninitialized value $name_of_this_machine in concatenation (.) or string
at C:/strawberry/perl/lib/EBL/ebl.pm line 51.

Kann mir einer sagen was da falsch ist?

Gruß Jan
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- +5 replies
- rosti
  
  2015-03-17 12:17
  
  User since
  2011-03-19
  3470 Artikel
  BenutzerIn
  
  Die Fehlermeldung ist doch eindeutig. Ansonsten
  
  perldoc Socket
  perldoc -f gethostbyname
  
  Lesen und verstehen.
  - +4 replies
  - jan99
    
    2015-03-17 12:34
    User since
    2008-09-18
    439 Artikel
    BenutzerIn
    
    Moin !
    aus http://wiki.selfhtml.org/wiki/Perl/Funktionen_f%C3%BCr_Informationen_aus_Konfigurationsdateien#gethostbyname_-_Eintrag_mit_bestimmtem_Hostnamen_aus_.2Fetc.2Fhosts_ermitteln heraus würde ich vermuten das
    
    Code (perl): (dl )
    
    use Socket;
    
    fehlt - aber das ist nicht so !
    
    Dann verstehe ich das nicht!
    
    Gruß Jan
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
    - +2 replies
    - Raubtier
      
      2015-03-17 13:26
      
      User since
      2012-05-04
      1075 Artikel
      BenutzerIn
      
      Die Vermutung ist wohl eher, dass das hier das Problem ist (fett markiert):
      
      Aus perldoc -f gethostbyname
      
      Quote
      These routines are the same as their counterparts in the system C library. In list context, the return values from the various get
      routines are as follows:
      
      ($name,$passwd,$uid,$gid,
      $quota,$comment,$gcos,$dir,$shell,$expire) = getpw*
      ($name,$passwd,$gid,$members) = getgr*
      ($name,$aliases,$addrtype,$length,@addrs) = gethost*
      ($name,$aliases,$addrtype,$net) = getnet*
      ($name,$aliases,$proto) = getproto*
      ($name,$aliases,$port,$proto) = getserv*
      
      (If the entry doesn't exist you get an empty list.)
      
      Somit wird dein $name_of_this_machine undef und du bekommst die Warnung.
      - jan99
        
        2015-03-17 13:33
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        Moin !
        
        das war mir schon klar, dass in einem leeren Objekt etwas ersetzt werden soll und so der Fehler zustande kommt.
        
        Ich dachte die Antwort, des einfachen Fehlers, war auf gethostbyname bezogen.
        
        Dann werde ich einen alterativen Weg einschlagen.
        
        Danke für Eure Hilfe.
        
        Gruß Jan
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
    - rosti
      
      2015-03-17 19:51
      
      User since
      2011-03-19
      3470 Artikel
      BenutzerIn
      
      Quote
      Dann verstehe ich das nicht!
      
      Du hast Hostname und möchtest die IP-Addr. Dann mach das doch einfach mal, Schritt, für Schritt. Dann kommt auch der Aha-Effekt.
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      use Socket; $packed_ip = gethostbyname("www.perl.org"); if (defined $packed_ip) { $ip_address = inet_ntoa($packed_ip); }

View all threads created 2015-03-17 12:07.