alarm für kind (Allgemeines zu Perl)

[thread]13917[/thread]

alarm für kind

Leser: 26

Articles: hide open all | hide show old branches

+9 replies
freddy

2009-08-24 14:09

User since
2009-08-08
95 Artikel
BenutzerIn

Noch eine kurze Frage:

Wenn ich einen Kindprozess fork'e, gilt dann das alarm des Vaters auch für das Kind oder kann ich dem Kind ein eigenes alarm verpassen?

EDIT: Hat sich erledigt, funktioniert.
Last edited: 2009-08-24 14:21:23 +0200 (CEST)
- +8 replies
- MatthiasW
  
  2009-08-24 18:17
  
  User since
  2008-01-27
  367 Artikel
  BenutzerIn
  
  Könntest du bitte noch deine Lösung posten. Falls jemand danach sucht wäre es ziemlich hilfreich, wenn er eine Lösung finden würde ;)
  
  MfG
  perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
  - +7 replies
  - freddy
    
    2009-08-25 07:52
    User since
    2009-08-08
    95 Artikel
    BenutzerIn
    
    2009-08-24T16:17:36 MatthiasW
    Könntest du bitte noch deine Lösung posten. Falls jemand danach sucht wäre es ziemlich hilfreich, wenn er eine Lösung finden würde ;)
    
    MfG
    
    Stimmt hast Recht. Mach ich gern:
    
    Vater:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
    
    #!/usr/bin/perl -w alarm 20; my $pid; if ($pid = fork()) { # Vater exit (); # /Vater } else { # Sohn require "irgendeinscript.pl"; &test; exit (); # /Sohn }
    
    Sohn irgendeinscript.pl:
    
    Code (perl): (dl )
    
    1 2 3 4 5
    
    alarm 3600; sub test { print "Da bin ich und werde erst nach 1 Stunde gewürgt\n"; } 1;
    
    Hiermit kann man ein vom Vater abweichendes alarm für den Sohn erreichen.
    - +6 replies
    - sid burn
      
      2009-08-25 09:51
      
      User since
      2006-03-29
      1520 Artikel
      BenutzerIn
      
      Ich glaube du stellst dir unter einem fork() immer noch das falsche vor. Nach dem aufruf von fork() hast du zwei komplett voneinander getrennte Prozesse. Das ist (fast) so als wenn du dein Programm zweimal startest, und natürlich kann jeder Prozess auch sein eigener Alarm Timer haben. Dafür muss man das auch nicht in einer Datei auslagern und mit require laden.
      
      Hier mal ein Beispiel wo der Parent nach 3 sekunden etwas ausgiebt und der Child nach 5 Sekunden und sich dann beide Prozesse beenden.
      
      Code (perl): (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 30 31 32
      
      #!/usr/bin/env perl # Core Modules use strict; use warnings; use utf8; use open ':encoding(UTF-8)'; use open ':std'; # Alarm Handler $SIG{ALRM} = sub { print "Alarm vom Parent\n" }; # Parent Prozess if ( my $pid = fork() ) { parent(); } # Child Prozess else { child(); } exit; sub parent { alarm(3); wait(); } sub child { $SIG{ALRM} = sub { print "Alarm vom Child\n" }; alarm(5); sleep 10; }
      
      Last edited: 2009-08-25 09:54:08 +0200 (CEST)
      Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
      - +2 replies
      - freddy
        
        2009-08-25 10:24
        
        User since
        2009-08-08
        95 Artikel
        BenutzerIn
        
        2009-08-25T07:51:57 sid burn
        Ich glaube du stellst dir unter einem fork() immer noch das falsche vor. Nach dem aufruf von fork() hast du zwei komplett voneinander getrennte Prozesse.
        
        Ja, ist mir bewußt und wollte ich auch so haben.
        
        2009-08-25T07:51:57 sid burn
        Dafür muss man das auch nicht in einer Datei auslagern und mit require laden.
        
        Das hatte in meinem Fall einen anderen Grund.
        
        Dein Beispielcode ist sehr gut. Vielleicht brauch ich das nochmal.
        Danke Dir
        
        sid burn
        
        2009-08-25 11:35
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        Quote
        Ja, ist mir bewußt und wollte ich auch so haben.
        
        Bezweifle ich nicht das du es haben willst. Ich erwähne es nur da es doch dann selbstverständlich ist das jeder prozess seinen eigenen Alarm handler haben kann.
        
        Was ich aber nicht genau wuste:
        
        Quote
        Gilt dann das alarm des Vaters auch für das Kind
        
        Mein Test hat ergeben das wenn du ein Alarm vor dem Forken startest es nur für den Parent gilt und der Child das Alarm Signal nicht bekommt.
        
        Soweit ich mich erinnern kann wird Signalhandling im OS so gelöst das ein Signal immer zu einer PID gesendet wird. Und beim Forken bekommt ein Child ja eine neue PID, da eigener prozess, und erhält deswegen auch nicht das Alarm für den Parent.
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
      - +3 replies
      - topeg
        
        2009-08-25 10:57
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        ich hoffe dir ist klar, dass in deinem Code "child()" auch ausgeführt wird wenn "fork" fehlschlägt? (zu wenig Speicher, Keine PIDs mehr frei, was weiß ich.)
        
        ich würde es so schreiben:
        
        Code (perl): (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 30 31 32 33 34 35 36 37 38 39 40 41
        
        #!/usr/bin/env perl # Core Modules use strict; use warnings; use utf8; use open ':encoding(UTF-8)'; use open ':std'; # Alarm Handler $SIG{ALRM} = sub { print "Alarm vom Parent\n" }; # Fork erzeugen my $pid = fork(); # undefined bei Fehler if(!defined($pid)) { die "Fork schlug fehl ($!)\n"; } # Parent Prozess elsif ( $pid ) { parent(); } # Child Prozess else { child(); } exit; sub parent { alarm(3); wait(); } sub child { $SIG{ALRM} = sub { print "Alarm vom Child\n" }; alarm(5); sleep 10; }
        
        +2 replies
        
        sid burn
        
        2009-08-25 11:29
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        Quote
        Ich hoffe dir ist klar, dass in deinem Code "child()" auch ausgeführt wird wenn "fork" fehlschlägt?
        
        Jup ist mir klar, war mir aber für das Beispiel egal, ansonsten würde ich einfach ein "use autodie" hinzufügen. ;)
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
        
        topeg
        
        2009-08-25 11:36
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Nur freddy würde sich wundern, wenn er darüber nichts weiß. :-)

View all threads created 2009-08-24 14:09.