logfile option in File::Unpack führt zu Fehler (gelöst) (Fragen zu Perl-Modulen)

[thread]16714[/thread]

logfile option in File::Unpack führt zu Fehler [gelöst]

Tags: perl5 File::Unpack Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+4 replies
lawnmover

2011-09-11 20:23
User since
2011-02-18
6 Artikel
BenutzerIn
Hi Leute,

ich hab gerade ein wenig mit dem Module File::Unpack herumgespielt. Funktioniert auch alles soweit nur leider die log Funktion nicht so richtig. Jedesmal wenn ich beim erstellen der Instanz mittels File::Unpack->new() die Option logfile => \$log verwende, wird die Datei nicht enpackt. Ohne logfile Option funktioniert alles einwandfrei.

Erstmal der Quellcode:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

#!/usr/bin/perl use common::sense; use File::Unpack; my %hash = ('path' => './archive/attic.bz2', 'dest' => './unpack'); extract( \%hash ); sub extract { my $log; my $u = File::Unpack->new(destdir => $_[0]->{'dest'}, one_shot => 1, verbose => 2, logfile => \$log); $u->unpack( $_[0]->{'path'} ); }
Die Fehlermeldung:
Code: (dl )

1 2 3 4 5 6 7 8

sh-3.2$ ./extract.pl Use of uninitialized value $r in numeric ne (!=) at /usr/local/share/perl/5.10.0/File/Unpack.pm line 394. Use of uninitialized value $r in concatenation (.) or string at /usr/local/share/perl/5.10.0/File/Unpack.pm line 394. =log(SCALAR(0xa5373e0)): write failed: {"fu":"0.46","input":"/home/constrain/perl/gscp/archive/attic.bz2","pid":16173,"destdir":"/home/constrain/perl/gscp/unpack","start":"Sun Sep 11 19:53:01 2011", "unpacked":{ Use of uninitialized value $r in numeric ne (!=) at /usr/local/share/perl/5.10.0/File/Unpack.pm line 394. Use of uninitialized value $r in concatenation (.) or string at /usr/local/share/perl/5.10.0/File/Unpack.pm line 394. (in cleanup) =log(SCALAR(0xa5373e0)): write failed: {"pid":"16173", "unpacked":{
Laß ich die Option logfile weg funktioniert alles einwandfrei. Allerdings würde ich gerne in eine Datei oder ähnliches loggen.
Da ganze läuft unter Debian lenny. Bei der Installation mittels cpanm File::Unpack mußte ich auch ein wenig tricksen da er lzma.h nicht gefunden hat, egal welches Packet ich ihm gegeben habe. Hab dann nacher Dateien von einer Squeeze Installation kopiert.

Kann das an der Installation liegen? Grober Fehler von mir?

modedit Editiert von GwenDragon: BBDode repariert.

Bitte Log- und Fehlermeldungen meldungen in Code-Tags stellen, damit das Originalaussehen bleibt.
Außerdem sind in c- und code-Tags keine weiteren Formatierungen möglich. ein [b] ist deswegen sinnlos!
Bitte http://www.perl-community.de/bat/poard/markup_help... lesen.
Last edited: 2011-09-13 09:16:18 +0200 (CEST)
- +3 replies
- topeg
  
  2011-09-12 11:36
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Der Code in File::Unpack ist nicht ganz korrekt.
  
  Der Fehler kommt hier:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  sub log { my ($self, $text) = @_; if (my $fp = $self->{lfp}) { my $r = $fp->syswrite($text); die "$r=log($self->{logfile}): write failed: $text\n" if $r != length($text); $self->{lfp_printed}++; } }
  
  syswrite umgeht den Perl-IO-Layer und schreibt direkt auf das Systemhandle. Bei open($self->{lfp}, '>', \$scalar) existiert aber kein Systemhandle in das geschrieben werden könnte. Es spielt sich alles im IO-Layer ab.
  
  besser wäre also:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  sub log { my ($self, $text) = @_; if (my $fp = $self->{lfp}) { die "log($self->{logfile}): print failed: $text\n" if(!$fp->print($text)); $self->{lfp_printed}++; } }
  
  Einen Bugreport habe ich gerade abgesendet.
  https://rt.cpan.org/Public/Bug/Display.html?id=708...
  
  Als temporale Abhilfe, bis das Problem gelöst ist überschreibe die Methode File::Unpack::log in deinem Code:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  sub File::Unpack::log { my ($self, $text) = @_; if (my $fp = $self->{lfp}) { die "log($self->{logfile}): print failed: $text\n" if(!$fp->print($text)); $self->{lfp_printed}++; } }
  - +2 replies
  - lawnmover
    
    2011-09-13 08:51
    
    User since
    2011-02-18
    6 Artikel
    BenutzerIn
    
    Vielen Dank.
    Funktioniert mit dem Überschreiben der Log Funktion wunderbar.
    - Gast Juergen Weigert
      
      2011-10-04 23:37
      
      fixed in 0.47
      
      Danke für den report!
      Last edited: 2011-10-04 23:38:58 +0200 (CEST)

View all threads created 2011-09-11 20:23.