PERL kann zuvor erstellte Datei nicht löschen...

[keksinat0r]

moin

Joa wie der Titel sagt,
kann ich eine Datei die ich zuvor in dem selben Script erstellt habe nicht löschen...

Ich kann in die Datei schreiben, ich kann die Rechte der Datei ändern, aber sie net löschen... Permission Denied...

- ActivePerl 5.8.8
- Windows Vista (...)

Spoiler: gekürzter kot

[...]
my $GZIP = gzopen( "tgz" , "wb9" );
[...]
$GZIP -> gzclose;
[...]
unlink("tgz");
[...]

 

[loose]

Also unter XP funktioniert es einwandfrei...
Kannst du die Datei generell nicht löschen, oder nur nicht aus dem Skript heraus?

 

[keksinat0r]

nur aus dem Script, das is ja das komische ^^

 

[styx-cc]

re

Hi hi, etwas Code waere natuerlich vonVorteil ;-)

Du musst das Filehandle auch wieder schließen:

#!/usr/bin/perl -w
use strict;

open(FILE, '>test.txt') or die $!;
#... tu was
#...tu was
close FILE;

unlink 'test.txt';

MfG

 

[keksinat0r]

der code steht in dem spoiler "gekürzter kot"
und ich erstelle die datei net mit open, sondern mit gzip

 

[styx-cc]

re

welches modul verwendest du da?

 

[keksinat0r]

Compress::Zlib

 

[styx-cc]

re

Mach mal aus:

$GZIP -> gzclose;

$GZIP -> gzclose || die $!;

bzw. lass dir $@ ausgeben, wenn er stirbt
MfG