Simple execute and exit

[TheGenius22]

Hello all,

I wrote a little script and im having some trouble. It looks for a process and executes the exe if the process is not running. I cant seem to get the execute and exit part.

#!Perl -U

use strict;
use warnings;
use Win32:erfLib;
use File::Find;

my $server;
my $proc_ref = {};
my %counter;
my @FileList;

Win32:erfLib::GetCounterNames($server, \%counter);

my %r_counter = map { $counter{$_} => $_ } keys %counter;

my $obj = $r_counter{Process};
my $id = $r_counter{'ID Process'};

my $perf = new Win32:erfLib($server);
$perf -> GetObjectList($obj, $proc_ref);
$perf -> Close();

my $inst_ref = $proc_ref -> {Objects} -> {$obj} -> {Instances};

foreach my $pr (keys %{$inst_ref}) {

my $counter_ref = $inst_ref -> {$pr} -> {Counters};

foreach my $inf (keys %{$counter_ref}) {

if ($counter_ref -> {$inf} -> {CounterNameTitleIndex} == $id) {

if ($inst_ref -> {$pr} -> {Name} =~/fsremote/i) { exit; }
else { &exec_proc; }

}

}

}

sub exec_proc {

my $drv = 'c:/program files';

find(\&do_it, $drv);

foreach (@FileList) {
if (/fsremote.exe/i) {

# part where i would like to execute the exe and exit sctipt.

}
}

}

sub do_it {

my $name = $File::Find::name;
$FileList[++$#FileList] = $name;

}

Any help is greatly appreciated

 

[PaulTEG]

system("C:/Program Files/fsremote.exe"

??
Paul

 

[NEVERSLEEP]

sub exec_proc
{
	if (-e "c:\\program files")
	{
		find( sub { push my @foundfiles, $File::Find::name if /fsremote.exe/i }, "c:\\program files" );

		do
		{
			# 404! do something?
			exit;
		} unless $foundfiles[0];
		
		system($foundfiles[0]);
	}
}

this should do ..



---------------------------------------
bah

 

[TheGenius22]

I need to explain a little more.
The exe is an application that runs 24/7. if i use system or exec , the perl script never exits until the exe terminates (which neveer does). I need something that will execute the exe , exit the perl script and leave the exe running. I have tried loading it as a process but its not the same as executing the file.

I hope this is a little more clear

 

[usige]

TheGenius22,
Have you tried calling system like such:

system(1,"fsremote.exe");

The initial one should make windows spawn the system call as an async process. You might also be able to preced your command with 'start /b'. eg:

system("start /b fsremote.exe");

Since I don't do windoze these are just ideas based on half remebered windoze stuff.

Hope one of these helps.

 

[TheGenius22]

thanks usige

the system(1, "command&quot works like a charm.