in reply to Re: Extracting text from pptx
in thread Extracting text from pptx

Please, consider that I'm a novice with Perl

I just can't understand the whole script: where is the unzipping part? If I run the script (on Windows) I simply get an error message (System not able to find the directory + Failed to extract required information from <file>). It must - I guess - with the script setting:

my $unzip = "/usr/bin/unzip"; to do

Replies are listed 'Best First'.
Re^3: Extracting text from pptx
by Corion (Patriarch) on Mar 08, 2013 at 19:12 UTC

    So, what have you done to find out where $unzip is then used?

    Also, the error message would suggest to me that somewhere, the program expects some other program, possibly unzip.exe to exist. What have you done to find out whether that is really the case?

    Likely an unzip utility can be found in the unxutils package.

[reply]
[d/l]
[select]
Re^3: Extracting text from pptx
by jms53 (Monk) on Mar 09, 2013 at 03:44 UTC
    that looks like an Unix comand!
    (ok, that IS an unix path to a program, you'll want to find the call for something like 7zip or the likes and replace  "/usr/bin/unzip/ it with that).
    J -
[reply]
[d/l]

      Here's a one-liner for *nix 

       unzip -lp <filename>.pptx ppt/slides/* ppt/notesSlides/* | perl -wne'
+while ( /<a:t>(.*?)<\/a:t>.*?(?=(<a:t>|<\/p:txBody>))/g ) {print "$1"
+ and print "\n" if $2 eq "<\/p:txBody>"}'

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom