Opened by peterpan at 2006-04-20 17:13
User since
2006-04-20
4 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-04-20
4 Artikel
BenutzerIn
Hallo an alle,
bin ein Perl Neuling und scheitere gerade an folgendem Problem:
Ich möchte abfragen ob ein Prozess läuft, das hab ich soweit hinbekommen (wenn auch etwas primitiv, wie ich glaube).
Das Problem ist nun das folgende:
-Solange der Prozess noch läuft, soll das Script nichts tun bzw. erneut prüfen ob er noch läuft.
-Wenn der Prozess nicht mehr läuft soll er mit der Ausführung des restlichen Scripts weitermachen.
Mein Lösungsansatz bisher:
Eigentlich dachte ich, die while Schleife wird solange aufgerufen, bis der $returncode nicht mehr "running" ist..leider ist dem nicht so...(deshalb auch auskommentiert)
Hat irgend jemand einen Tipp? Any hint appreciated..
P.S. Sorry für den uneleganten code, bin newbie in perl.
Danke im voraus & Grüße
Peter Pan
//modedit Gwendragon: Code-Tags hinzugefügt; Bitte Code in Code-Tags\n\n
<!--EDIT|GwenDragon|1145539760-->
bin ein Perl Neuling und scheitere gerade an folgendem Problem:
Ich möchte abfragen ob ein Prozess läuft, das hab ich soweit hinbekommen (wenn auch etwas primitiv, wie ich glaube).
Das Problem ist nun das folgende:
-Solange der Prozess noch läuft, soll das Script nichts tun bzw. erneut prüfen ob er noch läuft.
-Wenn der Prozess nicht mehr läuft soll er mit der Ausführung des restlichen Scripts weitermachen.
Mein Lösungsansatz bisher:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
#!/usr/bin/perl
use Win32;
use Win32::Process::Info;
my $exe = "notepad.exe"; # Name der Processdatei
my $pi = Win32::Process::Info->new();
check_process();
print $returncode;
#while ($returncode eq "running")
# { check_process();
# print $returncode;
# }
sub check_process {
foreach my $hashref ($pi->GetProcInfo())
{
if (lc($hashref->{Name}) eq $exe)
{
#print "Process: $hashref->{Name}\n";
$returncode = "running";
}
}
if ($returncode eq "running") { return $returncode; }
else {
$returncode="not running";
return $returncode;
}
}
Eigentlich dachte ich, die while Schleife wird solange aufgerufen, bis der $returncode nicht mehr "running" ist..leider ist dem nicht so...(deshalb auch auskommentiert)
Hat irgend jemand einen Tipp? Any hint appreciated..
P.S. Sorry für den uneleganten code, bin newbie in perl.
Danke im voraus & Grüße
Peter Pan
//modedit Gwendragon: Code-Tags hinzugefügt; Bitte Code in Code-Tags\n\n
<!--EDIT|GwenDragon|1145539760-->