Perl Script Usage With Softinterface Tools Explained

Using PERL Script To Interface With our Command Line Tools

English 日本語

The PERL script below was supplied freely by Mark Macumber.  If you too have a unique contribution that you would like to add, please

Basically, it constructs a batch file with the necessary command line arguments, then launches the batch file.

You may want to change some things around if need be, like the $start_dir.

use strict;
use File::Find;
use IO::File;
my $start_dir = "m:\\";

IO::File->new("conversion.bat", "w");
open(FileOut, ">conversion.bat") or die("Can't open file for writing: $!");

find (\&wanted, $start_dir);
sub wanted {
  if (/\.doc$/i)
  {
    # find and replace used for ease of regex for replacing .doc with .pdf
    my $find = ".doc";
    my $replace = ".pdf";

    # set variables for paths to doc file and pdf directory
    my $path = $File::Find::name;
    my $pdfDir = $File::Find::dir;

    # replace .doc with .pdf for the conversion
    my $pdfname = $_;
    $pdfname =~ s/$find/$replace/gi;

    #replace / with \ for the paths
    $path =~ s/\//\\/g;
    $pdfDir =~ s/\//\\/g;

    # print out Convert Doc commands in .bat file
    print FileOut "ConvertDoc /S $path /F9 /T $pdfDir\\$pdfname /C12 \n";
  }
}
close(fileOuT);
system("conversion.bat");