Opened by lawnmover at 2011-09-11 20:23
User since
2011-02-18
6 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
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:
Die Fehlermeldung:
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)
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)