automatically running third-party tool for all files in folder

kanishka1213

i am trying to make a script that recognizes all unparsed stream files from folder and runs an external tool in windows system to parse them. so far i am able to call that tool for all unparsed files. but after that we need to clcik "analyse" button in that tool. and after it analyse whole file for about 1 minute we need to click on "save " button i want to automate this .. means make a script that does click buttons on an external software automatically..

is this possible?

KevinADC

The Expect module is probably what you want. If you are on Windows it only works when run in cygwin environment. I never use Expect so can't offer help with its actual usage.

nithinpes

If you are on Windows , you can make use of Win32::GuiTest to automate GUI related tasks (eg. clicking buttons).

kanishka1213

Thanks all,

Well the problem is sorted out. i just omiited the gui version of running tool. it had a command line version too. i used that and it works and does well.
but it dint recognize some streams. i think probably some mistake in my if code

Expand|Select|Wrap|Line Numbers

  
my $dir="F:";
 
my ($stream_name,$stream_loc,$htmlstream,$stream,$txtstream,$docstream);

my $count_present=0;

my $count_absent=0;

my $count_total=0;
 
find(\&edits,$dir);
 
sub edits

{

    #Finds files with following extensions

    if(/\w+\...(dts|ts|trp|mpg)/i)    <=it doesnt recognize some streams with same extension....................

    {

$count_total++;                 #count the number of files found

$stream_name=$_;             #name of stream

$stream_loc=$File::Find::name;  #path of stream
 
my($stream_name, $stream_loc) = fileparse($stream_loc);
 
$stream_name=~ s/\..*//; #stripping off the stream extension

    $htmlstream=$stream_loc.$stream_name.".html";                          $txtstream=$stream_loc.$stream_name.".txt";

        $docstream=$stream_loc.$stream_name.".doc";

        if((-e $htmlstream)||(-e $txtstream)|| (-e $docstream))

        {

        $count_present++;         #streams are present

        }

        else

        {

        $stream=$File::Find::name;

        $count_absent++;          #streams are absent

        push(@unparsed_files,$stream);    

        }

    }

}

nithinpes

The two extra dots(periods) that u put after '\.' will try match any two characters after dot and before the required extensions.

To check for those extensions, the following pattern should suffice:

Expand|Select|Wrap|Line Numbers

if(/\.(dts|ts|trp|mpg)$/i)

automatically running third-party tool for all files in folder

re: automatically running third-party tool for all files in folder

re: automatically running third-party tool for all files in folder

re: automatically running third-party tool for all files in folder

re: automatically running third-party tool for all files in folder

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about