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

 
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:

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