Parsing a Word File ?

[pankajit09]

How to parse a Word File to retrieve the contents ?

[Icecrack]

have you tried this yourself ?
if you have post some code


and is this microsoft word or is this just a text file?

[nithinpes]

For parsing MS word file, you can make use of Win32::OLE.

[pankajit09]

When I run the below program the MS Word Program also opens. How to avoid that ?

use strict;

use Win32::OLE;
use Win32::OLE::Enum;

parseAndScanWord($filename);


sub parseAndScanWord
{
    my ($fileName) = @_;
    
    my $document = Win32::OLE -> GetObject($fileName) or return;
    my $paragraphs = $document->Paragraphs();
    my $enumerate = new Win32::OLE::Enum($paragraphs);
    while(defined(my $paragraph = $enumerate->Next()))
    {
        $text = $paragraph->{Range}->{Text};
    }
}