Opened by Gast at 2004-02-11 13:16
User since
2003-09-06
54 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-09-06
54 Artikel
BenutzerIn
[quote=Guest,11.02.2004, 12:16]Kann ich irgendwo einen Programmabsturz abfangen und dort die Datei sachgemäß schliessen, oder gibt es die Möglichkeit, eine Datei im Programm zu speichern.[/quote]
Du kannst den Programmabbruch abfangen, und dort die Datei ordnungsgemäß schliessen.
Funktioniert bei mir in einem anderen Zusammenhang (Rollback in Datenbank-Transaktion im Fehlerfalle), ich habe das hier jetzt aus dem Kopf geschrieben, also nicht hauen, wenn es nicht auf Anhieb stimmt. ;)\n\n
<!--EDIT|DemoFreak|1076516748-->
Du kannst den Programmabbruch abfangen, und dort die Datei ordnungsgemäß schliessen.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl
use strict;
use warnings;
$SIG{_ _DIE_ _} = sub {
print "Fehler aufgetreten: @_\n";
close XY;
};
my $a = 1;
my $b = 0;
open XY, ">testfile" or die "Konnte Datei nicht oeffnen!";
print XY "Das ist ein wenig Text\n";
print $a / $b; # Hier gibt es Division by zero
print "Wird nicht mehr ausgeführt.\n";
close XY;
Funktioniert bei mir in einem anderen Zusammenhang (Rollback in Datenbank-Transaktion im Fehlerfalle), ich habe das hier jetzt aus dem Kopf geschrieben, also nicht hauen, wenn es nicht auf Anhieb stimmt. ;)\n\n
<!--EDIT|DemoFreak|1076516748-->
Gruss, Hannes