You can use named events. They are kernel events so they persist across processes.
You create the event in the first script and when the latter script loads you check for the event's existance. If it already exists then you know that there is another instance already loaded.
Check
Win32::Event
$event = Win32::Event->new([$manual, [$initial, [$name]]])
Constructor for a new event object. If $manual is true, you must manua
+lly reset the event after it is signalled (the default is false). If
+$initial is true, the initial state of the object is signalled (defau
+lt false). If $name is omitted or undef, creates an unnamed event obj
+ect.
If $name signifies an existing event object, then $manual and $initial
+ are ignored and the object is opened. If this happens, $^E will be s
+et to 183 (ERROR_ALREADY_EXISTS).
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.