Hilfestellung bei Problem mit package (gelöst) - #180482 (Allgemeines zu Perl)

jan99

2015-03-31 16:03

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

So - da bin ich nochmal wieder zu diesem Posting - auch wenn diese Woche fast wieder um ist.

Mein letzter Versuch der Sache auf die Schliche zu kommen war die Abfrage der log und shell-Einstellungen in der write-Funktion:

Code (perl): (dl )

# write to file mit optionaler Ausgabe auf die Shell
sub write  {
  print "write-debug: ".$_[0]->log()."\n";
  $_[0]->show_status();
  $_[0]->fh->print($_[1]."\n") if($_[0]->log()); 
  print($_[1]."\n") if($_[0]->shell()); 
  }

Für beide Parameter wurde der Wert 1 zurückgegeben:

Quote
write-debug: 1
Log: 1, Shell: 1

... aber jetzt bin ich am Ende mit meinem schlechten Latein.

Ich halte weiter die Vermutung das es irgendetwas mit der Ausgabe zu tun hat weil ich weiter oben..

Code (perl): (dl )

$fh->print("ERROR open $log_file ($!)\nwrite to STDOUT\n");

gelesen habe. Aber das macht auch keine Sinn, weil keine gleichlautende Fehlermeldung im Befehlszeilenfenster ausgegeben wird.

Kann mir nochmal einer weiterhelfen?

Gruß Jan

perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de