Prozessabfrage

[Stefan Muenz]

Hallo,
ich starte zwei Perlprogramme gleichzeitig mit einem cronjob!
Möchte aber das, das zweite perlprogramm erst gestartet wird, wenn das erste sich beendet hat.
Wie kann ich abfragen ob sich das erste Perlprogramm schon beendet ist?

Danke fuer eure Hilfe!

Gruss,
Stefan Muenz

[Martin Speiser]

Hi,

eine Antwort auf die Frage weiss ich leider nicht, aber ich wundere mich über die EMail-Adresse. AOL, nicht Teamone? <grübel>

Gruß,
Martin

[Stefan Einspender]

Hallo "Stefan Muenz"!

ich starte zwei Perlprogramme gleichzeitig mit einem cronjob!
Möchte aber das, das zweite perlprogramm erst gestartet wird, wenn das erste sich beendet hat.
Wie kann ich abfragen ob sich das erste Perlprogramm schon beendet ist?

Zu Deiner Frage kann ich Dir leider nicht helfen, aber bitte berück-
sichtige zwei Punkte:
1. Solltest Du wirklich so heißen (es gibt ja laut ripe noch mind.
einen internetaktiven Stefan Muenz, siehe auch http://www.paradiescamp.de/
oder http://www.ripe.net/cgi-bin/whois?query=paradiescamp.de&.submit=Anfrage+senden,
wobei die Seite nicht aussieht, wie von _dem_ Stefan Muenz <g>),
dann benutze bitte hier im Forum zumindest einen anderen (Nick-)
Namen, dafür sind Dir sicherlich viele Besucher dankbar.
2. Falls Du nicht Stefan Muenz heißt, dann lasse es bitte ganz sein,
ich bezweifle, dass _der_ Stefan Muenz einen AOL-Account hat ;)

Viele Grüße aus Dresden,
Stefan Einspender

[Michael N.]

Hallo Stefan,

ich starte zwei Perlprogramme gleichzeitig mit einem cronjob!
Möchte aber das, das zweite perlprogramm erst gestartet wird, wenn das erste sich beendet hat.
Wie kann ich abfragen ob sich das erste Perlprogramm schon beendet ist?

Das klingt mir schwer danach, als ob Du in Perl Semaphore einbauen willst. Ich habe zwar selber nichts mit Perl zu tun, mußte sowas aehnliches aber mal in VBA verwirklichen. Vielleicht kannst Du aus meinen VBA-Code-Schnipseln was machen.

<VBA-Code>

Function SetSemaphore(iStatus As Integer) As Integer

'******************************************************************
'Date       Version     Status      Author
'29.07.1999 1.0         develop     mnikolai
'******************************************************************
'Version    changed because of
'1.0        introduction
'******************************************************************
'used and referenzed functions / sheet / files
'** mistake()
'******************************************************************
'Parameters
'IN
'OUT
'   True / False
'******************************************************************
'Short description
' sets and resets the semaphore

On Error GoTo err_SetSemaphore
    Const N_Fkt = "Fct. SetSemaphore()"
    Dim ierr     As Integer
    Dim iErrInd  As Integer
    Dim iErrFlag As Integer
    Dim fhandle  As Integer
    
    Select Case iStatus
        Case i_ON
            fhandle = FreeFile()
            If (Dir("C:\sema.txt") <> "") Then
                SetSemaphore = False
            Else
                Open "C:\sema.txt" For Output As #fhandle
                Print #fhandle, "Used"
                Close #fhandle
                SetSemaphore = True
            End If
        Case i_OFF
            If (Dir("C:\sema.txt") = "") Then
                SetSemaphore = False
            Else
                Kill "C:\sema.txt"
                SetSemaphore = True
            End If
        Case Else
            SetSemaphore = False
    End Select

exit_SetSemaphore:
    Exit Function

mistake_SetSemaphore:
    SetSemaphore = False
    GoTo exit_SetSemaphore

err_SetSemaphore:
    If (iErrInd = i_OFF) Then
        iErrFlag = True
        Resume Next
    End If
    ierr = Err
    ierr = mistake(ierr, N_Fkt)
    SetSemaphore = False
    Resume exit_SetSemaphore
    
End Function

Function CheckSemaphore() As Integer

'******************************************************************
'Date       Version     Status      Author
'29.07.1999 1.0         develop     mnikolai
'******************************************************************
'Version    changed because of
'1.0        introduction
'******************************************************************
'used and referenzed functions / sheet / files
'** mistake()
'******************************************************************
'Parameters
'IN
'OUT
'   True / False
'   in errorcase -2
'******************************************************************
'Short description
' Checks whether a semaphore is on

On Error GoTo err_CheckSemaphore
    Const N_Fkt = "Fct. CheckSemaphore()"
    Dim ierr As Integer
    
    If (Dir("C:\sema.txt") <> "") Then
        CheckSemaphore = True
    Else
        CheckSemaphore = False
    End If

exit_CheckSemaphore:
    Exit Function

mistake_CheckSemaphore:
    CheckSemaphore = -2
    GoTo exit_CheckSemaphore

err_CheckSemaphore:
    ierr = Err
    ierr = mistake(ierr, N_Fkt)
    CheckSemaphore = -2
    Resume exit_CheckSemaphore
    
End Function

</VBA-Code>

Beide Programme enthalten dann in dem kritischen gemeinsamen Bereich vorher eine Schleife, die solange läuft, bis die Semaphore offen ist. Danach wird die Semaphore geschlossen und beim Verlassen des kritischen Bereiches wieder geöffnet, damit der wartende Prozess weiterarbeiten kann.

Wenn Du das ganze jetzt nach Perl transferierst, kannst Du ja evtl. zwei oder drei kleine Shell-Batch-Programme draus machen, die das Semaphoren Schließen, -Öffnen und -Prüfen übernehmen und die Du aus den Scripts heraus aufrufst.

Danke fuer eure Hilfe!

Gern geschehen.

Gruss,

Michael N.

PS.: Ich habe den Hinweis von Martin Speiser und Stefan Einspender gelesen, denke mir aber, daß Stefan durchaus mehrer Adressen haben könnte und uns hier nur verwirren will.

[Martin Speiser]

Hi Michael,

PS.: Ich habe den Hinweis von Martin Speiser und Stefan Einspender gelesen, denke mir aber, daß Stefan durchaus mehrer Adressen haben könnte und uns hier nur verwirren will.

hat er auch, z.B. noch (?) eine CompuServe-Adresse. Aber eine AOL-Adresse ist mir noch nie aufgefallen, ausserdem hat er im Forum meines Wissens nach immer die von teamone verwendet.

Gruß,
Martin

[Stefan Einspender]

Hallo Martin & Michael,

PS.: Ich habe den Hinweis von Martin Speiser und Stefan Einspender gelesen, denke mir aber, daß Stefan durchaus mehrer Adressen haben könnte und uns hier nur verwirren will.

hat er auch, z.B. noch (?) eine CompuServe-Adresse. Aber eine AOL-Adresse ist mir noch nie aufgefallen, ausserdem hat er im Forum meines Wissens nach immer die von teamone verwendet.

siehe <../../../selfhtml/sfarchiv/1998_3/t00001.htm#a1>, da ist der
eindeutige Gegenbeweis, viele hundert mehr folgen ;)
Aber die AOL-Adresse und den völlig anderen Schreibstil finde ich
doch recht eigenartig, für Stefan Muenz, den SELFHTML-Vater.

Sollte es ein Scherz seinerseits gewesen sein, so bin ich darauf
reingefallen.

Viele Grüße aus Dresden,
Stefan Einspender

[Michael N.]

Hallo Martin & Stefan E.,

PS.: Ich habe den Hinweis von Martin Speiser und Stefan Einspender gelesen, denke mir aber, daß Stefan durchaus mehrer Adressen haben könnte und uns hier nur verwirren will.

hat er auch, z.B. noch (?) eine CompuServe-Adresse. Aber eine AOL-Adresse ist mir noch nie aufgefallen, ausserdem hat er im Forum meines Wissens nach immer die von teamone verwendet.

siehe <../../../selfhtml/sfarchiv/1998_3/t00001.htm#a1>, da ist der
eindeutige Gegenbeweis, viele hundert mehr folgen ;)
Aber die AOL-Adresse und den völlig anderen Schreibstil finde ich
doch recht eigenartig, für Stefan Muenz, den SELFHTML-Vater.

Sollte es ein Scherz seinerseits gewesen sein, so bin ich darauf
reingefallen.

Ich denke er wird uns bald darüber aufklären, damit wir nicht länger rumrätseln. Ausserdem dachte ich mir, egal ob jetzt der echte Stefan dahintersteckt, oder sich ein anderer recht geschickt seines Namens bedient, das Posting war eine Bitte um Hilfe, sie war kein übliches Geplärre nach dem Motto "IHR MÜSST MIR SOFORT HELFEN, SONST SEID IHR ..." und ich habe es mit einer Anregung zum Selber-Umsetzen beantwortet. Und der echte Stefan kann das auch umsetzen, da er IMHO genug Fachkenntnisse hat um den VBA-Code in andere Umgebungen zu tansferieren.

Michael N.

[speedy]

Hi,

und ausserdem - wenn man das einzige Posting von Stefan heute morgen gelesen hat - tut sich der Stefan heut bestimmt nicht ernsthaft mir Prozessabfragen auseinandersetzen...

Gruesse
speedy

[Peter Squentz]

Hallo,
ich starte zwei Perlprogramme gleichzeitig mit einem cronjob!
Möchte aber das, das zweite perlprogramm erst gestartet wird, wenn das erste sich beendet hat.
Wie kann ich abfragen ob sich das erste Perlprogramm schon beendet ist?

Man kann mit Kanonen auf Spatzen schiessen, oder man macht es sich mit einem kleinen Shellskript einfach:

#!/bin/sh
programm1
programm2

Dieses dann per cron aufrufen.

Oder noch einfacher:

Man fuehrt per cron

programm1; programm2

aus.

Peter

[Stefan Muenz]

Liebe Forumer,

Das Ausgangsposting ist ein Fake.
Insider sehen es ja eh an Kleinigkeiten ;-)

viele Gruesse
  Stefan Muenz

[Steffen Gerlach]

Das Ausgangsposting ist ein Fake.

Sicher? Ich z.B. weiß von mindestens drei weiteren Personen, die im deutschsprachigen Internet ihr Unwesen treiben und genauso heißen wie ich...

Gruß
Steffen

...Natürlich ist es ein Fake! ;)

[Simon Reinhardt]

Hi Stefan!

Das Ausgangsposting ist ein Fake.
Insider sehen es ja eh an Kleinigkeiten ;-)

Ja, wie zum Beispiel an deinem immer pingelig genau um 2 Zeichen eingerueckten Namen ;-) :

viele Gruesse
  Stefan Muenz

MfG Simon

[Margarete Palffy]

Hallo Stefan

Das Ausgangsposting ist ein Fake.

<cool>... hab ich doch sofort gemerkt, Babe...</cool>

Nur keine Sorge -- Du bist unverwechselbar! ;o))

Herzliche Grüße und einen sonnigen Tag,
Meg

[Stefan Muenz]

Hallo Meg

<cool>... hab ich doch sofort gemerkt, Babe...</cool>

Ohh - so hat mich bislang noch niemand genannt! Ist das auch wirklich von allen Selffrauen einstimmig beschlossen worden, dass ich ab jetzt so heisse?  ;-)

Nur keine Sorge -- Du bist unverwechselbar! ;o))

Das gilt aber fuer uns alle - deshalb sind wir ja auch so leicht verwechselbar ... ;-)

viele Gruesse
  Stefan Muenz

[Kess]

Hallo Stefan,

Ohh - so hat mich bislang noch niemand genannt! Ist das auch wirklich von allen Selffrauen einstimmig beschlossen worden, dass ich ab jetzt so heisse?  ;-)

es gab noch keine Abstimmung, doch ich glaube nicht, lieber Ari, daß sie einstimmig ausfallen würde. An ein Ferkelchen erinnerst du mich nun wirklich nicht. *bg*

Viele Gruesse
  Kess

[Margarete Palffy]

Hallo Stefan
Hallo Kess

Ohh - so hat mich bislang noch niemand genannt! Ist das auch

wirklich von allen Selffrauen einstimmig beschlossen worden, dass ich
ab jetzt so heisse?  ;-)

Das möchte ich gar nicht erst zur Diskussion stellen, denn es soll ja
auch Fälle geben, die sich nicht demokratisch beschließen lassen...
... war mir einfach ein persönliches Bedürfnis, Dich grade mal so zu
nennen -- falls Du Einwände hast, laß ich es natürlich bleiben und
gelobe "nie wieder" und so... ;o)))))

An ein Ferkelchen erinnerst du mich nun wirklich nicht. *bg*

An Ferkelchen hatte ich dabei auch überhaupt nicht gedacht... ;o))

Herzliche Grüße,
Meg

[Stefan Muenz]

Hallo Meg,

Das möchte ich gar nicht erst zur Diskussion stellen, denn es soll ja auch Fälle geben, die sich nicht demokratisch beschließen lassen...

Oh, unsere Selffrauen sind absolut nicht demokratisch, wenn es um solche Dinge geht, weißt du ... naja, aber das wird man dir in der Aufnahmepruefung zu den Selffrauen schon noch beibringen ;-)

... war mir einfach ein persönliches Bedürfnis, Dich grade mal so zu  nennen -- falls Du Einwände hast, laß ich es natürlich bleiben und gelobe "nie wieder" und so... ;o)))))

Nie wieder reicht sowieso nur bis zum naechsten mal, da glaub ich dir keine heiligen Schwuere ;-)
Beschwer dich nur nicht, wenn ich bezirzungsresistent dabei bleibe ;-)

An Ferkelchen hatte ich dabei auch überhaupt nicht gedacht... ;o))

"Ein Schweinchen namens Babe" - wenn ich mal Eintrittskarten fuer diesen Film gewinnen sollte, schick ich sie dir, das ist gebongt! ;-)

viele Gruesse
  Stefan Muenz