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

jan99

2015-03-17 12:07

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

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 )

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