Tie::File und utf-8 - #114033 (Fragen zu Perl-Modulen)

RalphFFM

2008-08-27 15:53

User since
2006-11-16
258 Artikel
BenutzerIn

Irgendwie wird dann immer der Dateiinhalt leergeräumt.

Aber ich glaube jetzt nach sehr vielem Lesen eine Lösung gefunden zu haben:

Code (perl): (dl )

1
2
3

sysopen HANDLE, "./adressen.db", O_RDWR|O_CREAT or die;
binmode(HANDLE, ":encoding(utf8)");
tie my @adressen, 'Tie::File', \*HANDLE, recsep => "---\n" or die;

Irgendwie eine etwas durchgeknallte Lösung finde ich, scheint aber zu funktionieren. Werde noch ausgiebiger testen.