BrowserUk,
The code looks something like this:
for my $pdf (glob('*.pdf')) {
my $txt = convert_pdf_to_text($pdf);
next if ! interesting($txt);
# ...
}
sub convert_pdf_to_text {
my ($file) = @_;
my $abs_file = rel2abs(catfile(curdir(), $file));
## Start Simpo PDF To Text
system(1, 'C:\Program Files\Simpo PDF to Text\PDF2Text.exe');
# Locate the window
my $wid = WaitWindow('Simpo PDF to Text', 5);
die "Couldn't find 'Simpo PDF to Text' window" if ! defined $wid;
## Make sure it is on top
SetForegroundWindow($wid);
# Convert PDFs
add_pdf($abs_file);
convert();
# Close the application
SendKeys('%{F4}');
my $txt_file = construct_txt_file($file);
return '' if ! -r $txt_file;
my $data = read_file($txt_file);
unlink $txt_file or die $!;
return $data;
}
As you can see, I use system(1, $app) to start the application and alt+f4 to close the application (before starting the new one). I have already worked around the problem by leaving the app open. Just not sure why this doesn't work as I would expect.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|