Wenn Perl-Skript beendet wird, Subroutine noch ausführen (Allgemeines zu Perl)

[thread]17916[/thread]

Wenn Perl-Skript beendet wird, Subroutine noch ausführen

Tags: perl5 Ähnliche Threads

Leser: 35

Articles: hide open all | hide show old branches

+18 replies

Gustl

2012-11-20 12:02

User since
2011-01-27
443 Artikel
BenutzerIn

Hallo,

ich habe ein Perl-Skript mit einer Endlosschleife erstellt, nun soll beim Herunterfahren von Windows, also wenn das Skript beendet wird, noch eine Subroutine ausgeführt werden die in einer Datei den Zeitpunkt einträgt wann dieses beendet wird.

Gibt es da eine Möglichkeit in Perl das direkt im Script abzufangen oder muss ich da über Umwege gehen? Wie würdet ihr das lösen?
Last edited: 2012-11-23 08:53:51 +0100 (CET)

Raubtier

2012-11-20 13:00

User since
2012-05-04
1083 Artikel
BenutzerIn

Suche mal ein bisschen nach WM_CLOSE (sollte ans übergeordnete Fenster gesendet werden). Mit Win32::Api und Wiun32::GUI sollte sich da was machen lassen.

Kann mangels Windows gerade nicht ausprobieren.
+16 replies

topeg

2012-11-20 13:07

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Es gibt sub END{ ... } Das ruft Perl auf Wenn der Prozess zu Ende ist. Leider Funktioniert das nur bedingt wenn er Prozess von Außen beendet wird. Probiere es aus. Du kannst auch die Signale unter %SIG benutzen. Unter Windows gibt es damit aber auch Probleme (fehlende POSIX Konformität).

+15 replies

Gustl

2012-11-23 08:53

User since
2011-01-27
443 Artikel
BenutzerIn

Danke für die Infos, aber weder über das API-Modul noch über END funktioniert das unter Windows.

Mal Grundlegendes zu meinem Vorhaben:

Ich möchte ein skript erstellen, welches Cronjobs verwaltet.
Das Skript wird per wperl im Autostart aufgerufen. Beim Herunterfahren soll die Abmeldezeit in einer Datei geschrieben werden, damit ich dann beim nächsten starten des Skripts überprüfen kann ob jobs ausstehen und wenn ja, diese dann starten kann. Jetzt habe ich mir überlegt, einfach bei jedem starten von einem Job und jede Minute einfach die aktuelle Zeit in einer Datei zu schreiben.

Folgendes Skript:

Code (perl): (dl )

#!/usr/bin/perl

use warnings;
use strict;
use Schedule::Cron;

my @cronjobs;
push(@cronjobs, { timespec => "* 8 * * Mon-Fri 0-40/10", name => "job1", subroutine => \&go_job1 } );
#push(@cronjobs, { timespec => "* 7 * * Mon-Fri 0-40/10", name => "job2", subroutine => \&go_job2 } );
#push(@cronjobs, { timespec => "35 7 * * Mon-Fri", name => "job3", subroutine => \&go_job3 } );

# jede Minute wird die die aktuelle zeit in last_online.txt geschrieben
my $cron = new Schedule::Cron(\&last_on);
$cron->add_entry("* * * * *");

foreach(@cronjobs){
  #$cron->add_entry( $_->{timespec}, \&go_job3 );  
  $cron->add_entry( $_->{timespec}, \&{$_->{subroutine}}($_->{name}) );
}
$cron->run(nofork => 0);

sub go_job1{
  print shift."\n";
  system("notepad.exe");   
  last_on();       
}

sub go_job2{
  print shift."\n";
  system("calc.exe");
  last_on();
}

sub go_job3{
  print shift."\n";
  system("calc.exe");
  last_on();
}

sub get_time_now{
  my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat,
    $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime();
    
  if($Stunden < 10){ $Stunden = "0".$Stunden; } 
  if($Minuten < 10){ $Minuten = "0".$Minuten; }  
  if($Sekunden < 10){ $Sekunden = "0".$Sekunden; }
  $Jahr += 1900;
  if($Monat == 12){ $Monat = 1; }
  else{ $Monat++; }
  
  if($Monatstag < 10){ $Monatstag = "0".$Monatstag; }  
  if($Monat < 10){ $Monat = "0".$Monat; }    
  return $Monatstag.".".$Monat.".".$Jahr." ".$Stunden.":".$Minuten.":".$Sekunden;
}

sub last_on{
  open FH, ">C:\\perl_schedule\\last_online.txt" or die ("Fehler beim schreiben $!");
  print FH get_time_now();
  close FH;
}

Probleme habe ich bei der Übergabe über einem hashref von der subroutine.
Zeile 17 würde funktionieren, aber ungeeignet, da ich die ausstehende Jobs,nach wiederstarten des skripts, überprüfen muss und dann die jeweilige subroutine für den job starten muss.
Mit Zeile 18 wird die subroutine sofort ausgeführt...

Weiß wer wo mein Fehler ist?

+2 replies
pq

2012-11-23 10:12
User since
2003-08-04
12209 Artikel
Admin1
davon mal abgesehen ist \&{$_->{subroutine}}($_->{name}) meiner meinung nach total unleserlich.
einfach $_->{subroutine}->($_->{name})

wenn du eine variable übergeben willst, pack das ganze in eine extra sub:
Code (perl): (dl )

1 2 3

my $sub = $_->{subroutine}; my $name = $_->{name}; $cron->add_entry( $_->{timespec}, sub { $sub->($name) } );
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- Gustl
  
  2012-11-23 11:57
  
  User since
  2011-01-27
  443 Artikel
  BenutzerIn
  
  Super, funktioniert!
  
  Dankeschön! :)
+2 replies
GUIfreund

2012-11-23 11:55

User since
2011-08-08
559 Artikel
BenutzerIn

Wenn du in sub get_time_now
return sprintf ...
benutzt, kannst du dir die vielen if's sparen und die sub wird deutlich kürzer und lesbarer.

Übrigens: localtime() liefert den Monat im Bereich 0 bis 11.
Gruß
GUIfreund
- Gustl
  
  2012-11-23 14:01
  
  User since
  2011-01-27
  443 Artikel
  BenutzerIn
  
  Danke für den Tipp, werde ich noch abändern.
+3 replies
bianca

2012-11-23 12:56

User since
2009-09-13
7016 Artikel
BenutzerIn

2012-11-23T07:53:12 Gustl
Ich möchte ein skript erstellen, welches Cronjobs verwaltet.
Das Skript wird per wperl im Autostart aufgerufen. Beim Herunterfahren soll die Abmeldezeit in einer Datei geschrieben werden, damit ich dann beim nächsten starten des Skripts überprüfen kann ob jobs ausstehen und wenn ja, diese dann starten kann.

Nur als alternative Überlegung falls das scheitert: Das Systemprotokoll beim Start auslesen (eventvwr). Da wird das Herunterfahren protokolliert. Und für das Systemprotokoll gibt es m.W. auch Perlmodule.
10 print "Hallo"
20 goto 10
- +2 replies
- Gustl
  
  2012-11-23 14:02
  
  User since
  2011-01-27
  443 Artikel
  BenutzerIn
  
  Mhh, das wäre ein Möglichkeit, aber da es ja sein kann, das des Skript ja auch aus irgendeinen Grund beendet werden kann, ist mir diese Methode doch lieber.
  
  Danke.
  - bianca
    
    2012-11-23 15:16
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2012-11-23T13:02:26 Gustl
    Mhh, das wäre ein Möglichkeit, aber da es ja sein kann, das des Skript ja auch aus irgendeinen Grund beendet werden kann, ist mir diese Methode doch lieber.
    
    Das war nicht die urspr. Fragestellung. Du hast explizit nach Herunterfahren von Windows gefragt.
    Ich sag es nur, weil du die andere Lösung daraufhin genau prüfen solltest, ob sie auch beim Beenden des Perl Prozesses greift.
    
    Im übrigen würde ich dann auf jeden Fall mit einer Statusdatei arbeiten in der alles abgewickelt wird. Zusammen mit flock() kann man hier sichere Methoden bauen die vermutlich zuverlässiger sind als beim Prozessende noch einen Funktionsaufruf "rein zu quetschen".
    Last edited: 2012-11-23 15:18:32 +0100 (CET)
    10 print "Hallo"
    20 goto 10
+4 replies
Gustl

2012-11-23 14:00

User since
2011-01-27
443 Artikel
BenutzerIn

Ok, nun muss ich beim starten von dem Skript den timestring aus der file auslesen und prüfen ob zwischen timenow und dem timestring aus dem file irgendwelche jobs laufen sollten. Ich stelle mir das schwierig vor und wollte mal nachfragen, bevor ich da irgendwas selbst zusammenbastle, ob es da eine einfache Möglichkeit gibt, bzw. ein Modul dafür?
- +3 replies
- Muffi
  
  2012-11-23 15:39
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Ich nehm immer
  
  Class::Date
  1 + 1 = 10
  - +2 replies
  - Gustl
    
    2012-11-26 09:01
    
    User since
    2011-01-27
    443 Artikel
    BenutzerIn
    
    Ich möchte ausrechnen, ob zb. ab diesen Zeitpunkt: 23.11.2012 11:56:42
    der cronjob1 mit timespec: "* 11 * * Mon-Fri 0-40/20"
    mindestens einmal gelaufen wäre, vergleich mit now().
    
    Und das geht mit Class::Date? Hat vielleicht wer ein Beispiel dafür?
    - Muffi
      
      2012-11-26 09:14
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Achsooo, falsch verstanden.
      
      Code (perl): (dl )
      
      $cron->get_next_execution_time($cron_entry,[$ref_time])
      
      tuts nicht?
      1 + 1 = 10
+3 replies

Gustl

2012-12-21 12:41

User since
2011-01-27
443 Artikel
BenutzerIn

Hallo,

ich habe nun das Skript folgendermaßen abgeändert:

Code (perl): (dl )

#!/usr/bin/perl

#Skriptname:  scheduler.pl
#Funktion:    Cronjobs werden aus der scheduler.ini geladen und abgearbeitet            
#Autor:       Jörg Häfner
#Datum:       18.12.2012
#Argumente:   

#use warnings;
use strict;
use Config::IniFiles;
use Schedule::Cron;
use Win32::Process;
use Win32;

my $main_path = "D:/Scheduler/";

my @cronjobs;

# Jobs aus der ini laden und in array cronjobs pushen 
my $config = Config::IniFiles->new( -file => $main_path.'scheduler.ini' );
foreach(1..10){       #Jobs maximal 10
  my $job = "job".$_;
  if ($config->SectionExists( $job )){
    push(@cronjobs, {  timespec   => $config->val( $job, 'timespec'   ),
                       name       => $config->val( $job, 'name'       ),
                       system_str => $config->val( $job, 'system_str' ),
                       parameter  => $config->val( $job, 'parameter' )
                    } ); 
  }  
}

start_schedule();
 
sub start_schedule{
  # jede Minute wird die die aktuelle zeit in last_online.txt geschrieben
  my $cron = new Schedule::Cron(\&last_on);
  $cron->add_entry("* * * * *");
  my $reftime = get_time_last_job();
  
  foreach(@cronjobs){    
    if($reftime && $cron->get_next_execution_time($_->{timespec}, $reftime ) < time()){
      print "- - - - - - - - - - - - CRONJOB wird nachgeholt - - - - - - - - - - - -\n";
      go_job($_->{name}, $_->{system_str}, $_->{parameter});
      print "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -\n";
    }
  }
  foreach(@cronjobs){    
    my $sub = $_->{subroutine};
    my $name = $_->{name};
    my $system_str = $_->{system_str};
    my $parameter  = $_->{parameter};
    $cron->add_entry( $_->{timespec}, sub { go_job->($name, $system_str, $parameter) } );
  }
  $cron->run(nofork => 0);
}

# Aufruf Cronjobs
sub go_job{
  my $name       = shift;
  my $system_str = shift;
  my $parameter  = shift;
  print "Cronjob: ".$name."\n";
  if($parameter ne ""){
    my $process;
    Win32::Process::Create($process, $system_str, " ".$parameter, 1, NORMAL_PRIORITY_CLASS, ".") or die Win32::FormatMessage( Win32::GetLastError() );
    $process->Suspend();
    $process->Resume();
    $process->Wait(INFINITE);
  }else{
    system($system_str);   
  }   
  last_on();       
}

sub last_on{
  open FH, ">".$main_path."last_online.txt" or die ("Fehler beim schreiben $!");
  print FH time()."\n".get_time_now();
  close FH;
}

sub get_time_last_job(){
  my $filename = $main_path."last_online.txt";
  if (-e $filename) {
    open FHR, $filename or die ("Fehler beim öffnen $!");
    my $timestring;
    while(<FHR>){
      $timestring = $_; 
      last;
    }
    close FHR;
    if($timestring) { return $timestring; }
    else { return 0; } 
  } 
  else { return 0; }   
}


sub get_time_now{
  my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat,                               
    $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime();
    
  if($Stunden < 10){ $Stunden = "0".$Stunden; } 
  if($Minuten < 10){ $Minuten = "0".$Minuten; }  
  if($Sekunden < 10){ $Sekunden = "0".$Sekunden; }
  $Jahr += 1900;
  if($Monat == 12){ $Monat = 1; }
  else{ $Monat++; }
  
  if($Monatstag < 10){ $Monatstag = "0".$Monatstag; }  
  if($Monat < 10){ $Monat = "0".$Monat; }    
  return $Monatstag.".".$Monat.".".$Jahr." ".$Stunden.":".$Minuten.":".$Sekunden;
}

sub get_time_string{
  my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat,                               
    $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(shift);
    
  if($Stunden < 10){ $Stunden = "0".$Stunden; } 
  if($Minuten < 10){ $Minuten = "0".$Minuten; }  
  if($Sekunden < 10){ $Sekunden = "0".$Sekunden; }
  $Jahr += 1900;
  if($Monat == 12){ $Monat = 1; }
  else{ $Monat++; }
  
  if($Monatstag < 10){ $Monatstag = "0".$Monatstag; }  
  if($Monat < 10){ $Monat = "0".$Monat; }    
  return $Monatstag.".".$Monat.".".$Jahr." ".$Stunden.":".$Minuten.":".$Sekunden;
}

Ich habe nur einen Cronjob in der scheduler.ini:

Code: (dl )

[job1]
timespec=* * * * * 0-59/10
name=Hoerer auf Verzeichnis - Dateien verschieben
system_str=C:\Scheduler\strawberry\perl\bin\wperl.exe  
parameter=C:\Scheduler\to_execute_perl\listener_and_move.pl D:\backup D:\backup2

Es funktioniert auch soweit, nur wenn ich dann nach ca. 1h oder 1,5h auf dem PC schaue ist der Task dann beendet...

Ich starte es mit wperl.exe -> umbenannt in perl-scheduler.exe.

Hat wer eine Idee warum das Programm einfach beendet wird?
BS ist Windows.

Bin für jeden Tipp dankbar.

Gruß

modedit Editiert von GwenDragon: CODE-Tags für cron-Job
Last edited: 2012-12-21 12:53:59 +0100 (CET)

+2 replies
Raubtier

2012-12-21 14:19

User since
2012-05-04
1083 Artikel
BenutzerIn

Hallo,

ich habe das eigentliche Problem jetzt nicht angeschaut, aber fällt dir nicht auf, dass get_time_now und get_time_string praktisch identisch sind? Du hast hier auch schon irgendwann den Hinweis bekommen, dass der Check if($Monat == 12){ $Monat = 1; } ziemlich sinnlos ist. Und wenn ich dir noch einen Rat geben darf: POSIX::strftime existiert! Du kannst also beide Funktionen durch einen Einzeiler ersetzen.
- Gustl
  
  2012-12-23 19:49
  User since
  2011-01-27
  443 Artikel
  BenutzerIn
  Hallo,
  
  ja fällt mir schon auf, werde ich noch abändern in
  
  Code (perl): (dl )
  
  strftime "%d.%m.%Y %H:%M:%S", gmtime(time + 3600);
  
  .
  
  Nur verstehe ich nicht warum das skript dann einfach ohne Fehlermeldung nach einiger Zeit einfach abbricht... Hat keiner eine Idee woran das liegen könnte?
  
  Gruß

View all threads created 2012-11-20 12:02.