word-dateien auslesen (win32::ole)
Von: , Frage gestellt am Mo, 1. Jul 2002
hallo zusammen,
hier mal was für knobel-freunde ;-) ich versuche gerade, den inhalt von ms-word-dateien mit Win32::OLE auszulesen. klappt natürlich nicht so recht.
ein prob dabei ist, dass ich bislang nirgendwo eine erläuterung auftreiben konnte, wie das korrekter weise zu bewerkstelligen wäre. möglich ist das mit sicherheit, aber die perl-welt scheint sich hier nur mit excel-dateien zu beschäftigen. also habe ich mal ausgehend von einem script aus einem buch geraten, wie das für word-dateien sein müsste:
#!/usr/bin/perl
use Win32::OLE;
use strict;
my ($word, $file, $dokument, %inhalt, $inhalt, $key);
$word=Win32::OLE->new('Word.Application', 'Quit')
or die ("Kein Objekt: ", Win32::OLE->LastError());
$file="test.doc";
$dokument=$word->Documents->Open($file)
or die ("Kann Dokument nicht öffnen: ", Win32::OLE->LastError());
%inhalt=$dokument;
$dokument->close;
foreach $schluessel (keys %inhalt)
{
printf ("%15s: %s\n", $schluessel, $inhalt{$key});
}
wie ich ausgerechnet auf einen hash komme? ;-)
die ausführung dieses scripts liefert folgende anzeige:
Win32::OLE=HASH(0x178148c)
die erscheint übrigens auch, wenn ich nur doof schreibe:
print "$dokument";
obwohl ich ja eigentlich recht gespannt bin auf diesen hash ;-) denke ich mir, dass das nicht im ernst das ergebnis dieser aktion sein kann.
hat wer von euch zufällig schon mal was ähnliches versucht und kann mir sagen, was hier zu tun ist?
gespannte grüße
bernd
p.s.: fehlermeldung gibt es hier keine.