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
[quote=Matze,20.04.2006, 16:59]So schlecht finde ich es nicht.
Ich würde es allerdings so machen:
Ich habs nicht getestet!
Aber es sollte so funktionieren.
MfG. Matze[/quote]
Vielen Dank für die Tipps erstmal, leider hab ich mein Prob immer noch nicht geloest, in dem Tipp von Matze stimmt wohl irgendwas am Pattern-Match nicht, jedenfalls tut sein Listing nix.
Ich denke mal hier sitzt der Fehler, aber wo genau kann ich nicht sagen:
Ist halt schon irgendwie doof wenn man wie ich neu ist und die Syntax nicht beherrscht...
Ich würde es allerdings so machen:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl -w
#
use strict;
use Win32::Process;
use Win32::Process::Info;
my $run = 1;
while ($run) {
my $pi = Win32::Process::Info->new();
my @info = $pi->GetProcInfo();
my $run = 0;
for my$av (0..$#info) {
if ($info[$av]{Name} =~ /notepad.exe/) {
$run = 1;
}
}
}
#...
Ich habs nicht getestet!
Aber es sollte so funktionieren.
MfG. Matze[/quote]
Vielen Dank für die Tipps erstmal, leider hab ich mein Prob immer noch nicht geloest, in dem Tipp von Matze stimmt wohl irgendwas am Pattern-Match nicht, jedenfalls tut sein Listing nix.
Ich denke mal hier sitzt der Fehler, aber wo genau kann ich nicht sagen:
Code: (dl
)
if ($info[$av]{Name} =~ /notepad.exe/)Ist halt schon irgendwie doof wenn man wie ich neu ist und die Syntax nicht beherrscht...