nicht angemeldet
Hallo zusammen!
Ich würde gerne den Inhalt von fiesen ;-) MS-Word-Dateien (Win98 SE, Office 97) auslesen und dachte, ich hätte zu solchem Zweck ein hübsch einfaches Script bei Ellie Quigley gefunden. Das operiert mit binmode, bei dem es auch eine "discipline" namens ‚:text' geben soll, wie sie schreibt.
Nun hab ich mal schlicht den Code abgetippt (allerdings nur fast: denn wie man mit den "disciplines" umgeht, führt sie leider nicht aus):
#!/usr/bin/perl
$quelle="test.doc";
open (DOC, "<$quelle");
open (TXT, ">test_out.txt");
binmode (DOC, ':text');
binmode (TXT);
while (read (DOC, $buffer, 1024))
{
print TXT $buffer;
}
close (DOC);
close (TXT);
Nun gibt es Mecker wegen dieser Zeile:
binmode (DOC, ':text');
Dies sei eine "unknown discipline", andere Schreibweisen bringen einen syntax-error in dieser Zeile.
Kann mir zufällig jemand einen Tipp geben, was da zu tun ist?
Beste Grüße
Piet