c't 1/01
my $tnef = Convert::TNEF->read_in($ARGV[0], {ignore_checksum=>1});
if (ref($tnef) eq 'Convert::TNEF') {
print "ok \n";
} else {
print "not ok \n";
}
for my $attachment ($tnef->attachments) {
print "Attachment: " . $attachment->longname;
}
Mit dem Befehl
Perl conTNEF.pl dateiname
zeigt das Skript die Attachments an und speichert sie in einzelnen Dateien ab, deren Bezeichnungen mit tnef beginnen. (as)
Version zum Drucken | Per E-Mail versenden | Heft bestellen
Permalink: http://heise.de/-309316
Das aktuelle Heft ist jetzt im Handel erhältlich.
Ältere Artikel können Sie über unser Zeitschriften-Archiv bestellen.