Re: calling .EXE through Perl script

untested, sorry have no system here to do it, but it should give you the direction.

See also:

File::Find
Cookbook 2nd ed. 16.2. Running another program

use File::Find;

find(\&run, '.');
sub run{
  system("bla.exe $File::Find::name");
}
[download]

Comment on Re: calling .EXE through Perl script Download Code

Replies are listed 'Best First'.
Re^2: calling .EXE through Perl script by GrandFather (Saint) on May 11, 2006 at 08:58 UTC
It's not clear that the OP wants to recurse down a tree and process each of the files found. Even if that is the case, as it stands your sample code will try and process directories as well as files. At least the following line should be added to `sub run` before the system call: `return if ! -f $File::Find::name;` [download] For scanning a single directory it is probably easier to simple use `opendir/readdir` as shown elsewhere. DWIM is Perl's answer to Gödel	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: calling .EXE through Perl script
by GrandFather (Saint) on May 11, 2006 at 08:58 UTC

It's not clear that the OP wants to recurse down a tree and process each of the files found. Even if that is the case, as it stands your sample code will try and process directories as well as files. At least the following line should be added to sub run before the system call:

  return if ! -f $File::Find::name;
[download]

For scanning a single directory it is probably easier to simple use opendir/readdir as shown elsewhere.

DWIM is Perl's answer to Gödel

[reply]
[d/l]
[select]