Hallo,bin neu hier im Forum und alles andere als ein Programmierguru.
Zum Problem.
ich muß eine XML Datei um einen tag erweitern.
ICh lese die Datei mit XML::Simple ein, erweitere den Hash und wenn ich den neuen Hash wieder in die Datei schreiben will bekomme ich _permission denied_
Das Schreiben in eine andere Datei *.tmp funktioniert.
Selbst ein Workarround, bei dem ich die Original xml Datei löschen will um dann die tmp wieder in xml umzubenennen funktioniert nicht. beim löschen der xml datei bekomme ich wieder permission denied.
Auch wenn ich diesen workarround in einem anderen Script aufrufe.
Code
snip:
my $idxFile2="$docPoolRoot/BATCHES/$idxFile.tmp";
$idxFile2);
print "idxFile: $idxFile2<br>";
#open (INPUT,"<$idxFile");
#my $xmlContent=<INPUT>;
#print Dumper($xmlContent);
$xmlHash=$xmlFile->XMLin("$docPoolRoot/BATCHES/$idxFile", ForceArray=>['document', 'envelopes', 'batch']);
if ($batchType eq 'CLR')
{
$xmlHash->{'batchinfo'}->{'printedCLR'}="$Monatstag.$Monat.$Jahr $Stunden:$Minuten:$Sekunden";
}
else
{
$xmlHash->{'batchinfo'}->{'printedBW'}="$Monatstag.$Monat.$Jahr $Stunden:$Minuten:$Sekunden";
}
#my $xmlOutput=$xmlFileOut->XMLout($xmlHash);
open(my $fhandle, '>:encoding(UTF-8)', $idxFile2)or die $!;
XMLout($xmlHash, OutputFile => $fhandle, NoAttr => 1, rootname => "batches", XMLDecl => '<?xml version="1.0" encoding="utf-8"?>') or die "TEST:$!";
...snap... funktioniert
dieser
my $idxFile2="$docPoolRoot/BATCHES/$idxFile.tmp";
$idxFile2);
print "idxFile: $idxFile2<br>";
#open (INPUT,"<$idxFile");
#my $xmlContent=<INPUT>;
#print Dumper($xmlContent);
$xmlHash=$xmlFile->XMLin("$docPoolRoot/BATCHES/$idxFile", ForceArray=>['document', 'envelopes', 'batch']);
if ($batchType eq 'CLR')
{
$xmlHash->{'batchinfo'}->{'printedCLR'}="$Monatstag.$Monat.$Jahr $Stunden:$Minuten:$Sekunden";
}
else
{
$xmlHash->{'batchinfo'}->{'printedBW'}="$Monatstag.$Monat.$Jahr $Stunden:$Minuten:$Sekunden";
}
#my $xmlOutput=$xmlFileOut->XMLout($xmlHash);
open(my $fhandle, '>:encoding(UTF-8)', "$docPoolRoot/BATCHES/$idxFile")or die $!;
XMLout($xmlHash, OutputFile => $fhandle, NoAttr => 1, rootname => "batches", XMLDecl => '<?xml version="1.0" encoding="utf-8"?>') or die "TEST:$!";
funktioniert nicht
Datum: 07.07.2008-19:07
Problem beim Dateizugriff (löschen, ändern schreiben
