Difference between revisions of "Extract Metadata Word Document"
Jump to navigation
Jump to search
Onnowpurbo (talk | contribs) |
Onnowpurbo (talk | contribs) |
||
| Line 17: | Line 17: | ||
wget http://www.cpan.org/modules/by-authors/id/H/HC/HCARVEY/File-MSWord-0.1.zip | wget http://www.cpan.org/modules/by-authors/id/H/HC/HCARVEY/File-MSWord-0.1.zip | ||
unzip File-MSWord-0.1.zip | unzip File-MSWord-0.1.zip | ||
| + | mv MSWord.pm /usr/lib/perl5/File/ | ||
| + | |||
Lakukan | Lakukan | ||
perl testwd.pl /doc/to/analyze.doc | perl testwd.pl /doc/to/analyze.doc | ||
| + | |||
| + | Akan keluar kira-kira: | ||
| + | |||
| + | |||
| + | Use of assignment to $[ is deprecated at /usr/local/share/perl/5.18.2/OLE/Storage.pm line 61. | ||
| + | Use of assignment to $[ is deprecated at /usr/local/share/perl/5.18.2/OLE/PropertySet.pm line 409. | ||
| + | Stream : 1Table | ||
| + | Stream : WordDocument | ||
| + | Stream : Data | ||
| + | Stream : �CompObj | ||
| + | Stream : DocumentSummaryInformation | ||
| + | Stream : SummaryInformation | ||
| + | |||
| + | Trash Bin Size | ||
| + | BigBlocks 0 | ||
| + | SmallBlocks 0 | ||
| + | FileEndSpace 1249 | ||
| + | SystemSpace 1232 | ||
| + | |||
| + | GUID : e011cfd0 - e11ab1a1 | ||
| + | |||
| + | lastsaved => 16.09.2015, 10:08:00 | ||
| + | authress => ASUS | ||
| + | appname => Microsoft Office Word | ||
| + | subject => | ||
| + | title => | ||
| + | lastprinted => | ||
| + | revnum => 1 | ||
| + | lastauth => ASUS | ||
| + | created => 16.09.2015, 10:04:00 | ||
| + | |||
| + | 0x0 -> 0x0 | ||
| + | Data | ||
| + | 1Table | ||
| + | |||
| + | Binary data: | ||
| + | envr => 0x0 | ||
| + | fDot => 0x12f0 | ||
| + | wIdent => 0xa5ec | ||
| + | nProduct => 0x805b | ||
| + | table => 0x1 | ||
| + | fMac => 0x10 | ||
| + | pnNext => 0x0 | ||
| + | nFib => 0xc1 | ||
| + | nFibBack => 0xbf | ||
| + | lKey => 0x0 | ||
| + | langid => 0x421 | ||
| + | |||
| + | Lang ID = Bahasa | ||
Latest revision as of 08:40, 21 September 2015
Instalasi Tools
sudo su perl -MCPAN -e "install Bundle::CPAN" perl -MCPAN -e shell
Dari shell CPAN
install OLE::Storage install OLE::PropertySet install Startup install Carp install Unicode::Map
Download & extract file testwd.pl
wget http://www.cpan.org/modules/by-authors/id/H/HC/HCARVEY/File-MSWord-0.1.zip unzip File-MSWord-0.1.zip mv MSWord.pm /usr/lib/perl5/File/
Lakukan
perl testwd.pl /doc/to/analyze.doc
Akan keluar kira-kira:
Use of assignment to $[ is deprecated at /usr/local/share/perl/5.18.2/OLE/Storage.pm line 61. Use of assignment to $[ is deprecated at /usr/local/share/perl/5.18.2/OLE/PropertySet.pm line 409. Stream : 1Table Stream : WordDocument Stream : Data Stream : �CompObj Stream : DocumentSummaryInformation Stream : SummaryInformation Trash Bin Size BigBlocks 0 SmallBlocks 0 FileEndSpace 1249 SystemSpace 1232 GUID : e011cfd0 - e11ab1a1 lastsaved => 16.09.2015, 10:08:00 authress => ASUS appname => Microsoft Office Word subject => title => lastprinted => revnum => 1 lastauth => ASUS created => 16.09.2015, 10:04:00 0x0 -> 0x0 Data 1Table Binary data: envr => 0x0 fDot => 0x12f0 wIdent => 0xa5ec nProduct => 0x805b table => 0x1 fMac => 0x10 pnNext => 0x0 nFib => 0xc1 nFibBack => 0xbf lKey => 0x0 langid => 0x421 Lang ID = Bahasa