Start/stop a process (Allgemeines zu Perl)

[thread]17101[/thread]

Start/stop a process

Tags: perl5 Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+9 replies

Gast Emeto

2012-01-26 10:58

Hallo an alle,

Von meinem Perl-Skript soll ich ein Exe starten und nach gewisser Zeit, wenn das Programm noch nicht fertig ist, soll das Skript es killen.
Ich habe die folgende Funktion:

Code (perl): (dl )

sub StartEditor()
{       
                
  eval {
        local $SIG{ALRM} = sub { die "alarm\n" };
        alarm 60;
        
        #start the Editor exe
        my $commandline='"Editor.exe" /CAS-FILE=$file'; 
        if ( (my $retcode = system($commandline)) != 0) {
              print (STDERR "'$commandline' returned non-ok confirmation code '$retcode'\n");    
        }
        alarm 0;        
    };
    if ($@) { # timed out
          print "StartEditor(): TIME OUT!\n";

          #kill Editor.exe 
          system ('taskkill /F /IM "Editor.exe"');     
          die  #unless $@ eq "alarm\n";
    }
    else { # didn't timeout
        print "StartEditor(): Finished Editor.exe\n";         
    }           
}

Meine Frage ist, ob es eine bessere Weise gibt, das Exe zu killen. Externe Kommandos wie "cat" oder "ps" gibt es leider unter Win nicht:( Mit der "kill" Funktion komme ich nicht zurecht.

Danke im Voraus.

VG
Emeto
Last edited: 2012-01-26 11:02:43 +0100 (CET)

+5 replies

topeg

2012-01-26 11:27

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

ungetestet, aber so ungefähr sollte es gehen:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;

my $commandline='"Editor.exe" /CAS-FILE=$file';
my $timeout=160; #Sekunden

local $SIG{CHLD}='IGNORE';

my $pid=fork;

die("Fork failed!") unless(defined($pid));

if($pid)
{
  my $start=time();
  while($start+$timeout > time())
  {
    sleep 1;
    last unless(kill(0,$pid));
  }

  # Zeit abgelaufen und Prozess läuft noch
  if($start+$timeout <= time() && kill(0,$pid))
  {
    # Prozess beenden

    # erster Versuch
    # freundlich fragen
    kill(15,$pid);
    sleep 2;

    # zweiter versuch
    if(kill(0,$pid))
    {
      kill(15,$pid);
      sleep 2;

      # das dritte mal Prozess abwürgen!
      kill(9,$pid) if(kill(0,$pid));
    }
  }
}
else
{
  # externes Programm mit der aktuellen Prozess ID starten
  exec($commandline);
}

+4 replies
GwenDragon

2012-01-26 12:57

User since
2005-01-17
14533 Artikel
Admin1

Nein, das geht nicht unter Windows.
die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +3 replies
- Gast Emeto
  
  2012-01-26 13:59
  
  Was geht dann unter Windows??
  
  Danke im Voraus.
  
  Gruß,
  Emeto
  Last edited: 2012-01-26 14:02:13 +0100 (CET)
  - +2 replies
  - payx
    
    2012-01-26 14:18
    User since
    2006-05-04
    564 Artikel
    BenutzerIn
    
    Hallo Emeto,
    
    hier ein Schnipsel aus einem Windows-Batch-Script, das prüft, ob ein Programm namens prog.exe läuft und es dann killt. (Immerhin geht das, wer hätte es gedacht.)
    
    Code: (dl )
    
    1 2 3 4 5
    
    for /F %%i in ('tasklist /fi "IMAGENAME eq prog.exe"') do set r=%%i if /i "%r%"=="prog.exe" goto progruns ... :progruns taskkill /f /fi "IMAGENAME eq prog.exe"
    
    Vielleicht kannst Du damit etwas anfangen. Ggf. genügt Dir schon der letzte Befehl allein. Aber ich vermute, es gibt bessere und v.a. perligere Vorgehensweisen mit den einschlägigen Win-Modulen. (Vielleicht am besten noch auf weitere Antworten warten.)
    
    Grüße
    payx
    - Gast Emeto
      
      2012-01-26 14:29
      
      Hallo payx,
      
      Code (perl): (dl )
      
      1 2 3 4
      
      #kill Editor.exe system ('taskkill /F /IM "Editor.exe"'); die #unless $@ eq "alarm\n";
      
      Der letzte Befehl verwende ich auch.Aber ich vermute es gibt eine bessere Weise;)
      Last edited: 2012-01-26 14:30:39 +0100 (CET)

+3 replies
GwenDragon

2012-01-26 14:34

User since
2005-01-17
14533 Artikel
Admin1

Module:
Win32::API
Win32
Win32::Process

Win32::GetCurrentProcessId()
Win32::Process::KillProcess
etc....

stöber mal dort, was dir gefällt.
die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- Gast Emeto
  
  2012-01-26 16:07
  
  Ich habe das zufällig in einem Forum gelesen:
  
  "Now, I am still not sure why you are using Win32::Process. Unless there is a specific reason to tie your script to Win32, I would recommend using standard Perl facilities. For example, read perldoc -f open and perldoc perlipc (see esp. Using open for IPC)."
  
  Meinst du es ist besser Win32 zu verwenden oder "open"?
  Last edited: 2012-01-26 16:13:15 +0100 (CET)
- Gast Emeto
  
  2012-01-26 17:16
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  use Win32; use Win32::Process; my $p; my $commandline='"Editor.exe" /CAS-FILE=FILENAME'; my $dir = $dir_exe.'\\CDB Editor.exe'; print "Starting CDB Editor.exe ... \n"; Win32::Process::Create( $p, $dir, $commandline, 1, NORMAL_PRIORITY_CLASS, '.', ) or die Win32::FormatMessage( Win32::GetLastError() ); print "Waiting 15 seconds before killing $commandline\n"; for (1 .. 15) { print; print "WAITING...\n" ; sleep 1; } $p->Kill(0) or die "Cannot kill '$p'";
  
  Das Skript funktioniert gut, aber macht kein Check während der 15 Sec. , ob das Exe noch läuft oder nicht. Wenn es nicht mehr läuft,soll das Skript das Exe nicht killen.Wie kann ich das machen?
  Last edited: 2012-01-26 17:19:44 +0100 (CET)

View all threads created 2012-01-26 10:58.