Hallo,
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?
Ich würde einmal mit
perldoc -f binmode
beginnen;-)
Ab gesehen davon, daß DISCIPLINE nur ':raw' und ':crlf' akzeptiert, noch etwas zu dem eigentlichen Programm:
open (DOC, "<$quelle");
open (TXT, ">test_out.txt");
binmode (DOC, ':text');
binmode (TXT);
while (read (DOC, $buffer, 1024))
{
print TXT $buffer;
}
damit kopierst Du einfach den _gesamten_ Inhalt des Word-Dokuments in eine andere Datei. Der Unterschied ist dann nur der Dateiname, sonst gar nichts.
Willst Du aber nur den reinen Text aus dem Word-Dokument auslesen, dann ist dies sicherlich der falsche Weg.
Versuche es einmal Mit Win32::OLE bzw. OLE::Storage.
Grüße
Klaus