threads and alarm

[email protected] (alfonso caponi) Thu, 1 Sep 2011 12:08:28 +0200
Newsgroups perl.ithreads
Message-ID <CAF3e4iYCBdr-5+Z9LsAPyrQ=q6MXU94ujZH5U+jhTnrTHcrX=A@mail.gmail.com>
--bcaec548a2b119c52704abde6d0f
Content-Type: multipart/alternative; boundary=bcaec548a2b119c52204abde6d0d

--bcaec548a2b119c52204abde6d0d
Content-Type: text/plain; charset=ISO-8859-1

Hi list,

I need help! :) How can I use "alarm" without exit from a thread only
(without making the script end!).

For example this works (without threads):

while(1){
        eval {
                local $SIG{ALRM} = sub { print "alarm!\n"; };
                alarm(2);
                print "hi\n";
                sleep 5;
                alarm(0);
        };
}

but the script in attachment doesn't works :(

Thank you very much,
Al

--bcaec548a2b119c52204abde6d0d
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

Hi list,<br><br>I need help! :) How can I use &quot;alarm&quot; without exi=
t from a thread only (without making the script end!).<br><br>For example t=
his works (without threads):<br><br>while(1){<br>=A0=A0=A0=A0=A0=A0=A0 eval=
 {<br>=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 local $SIG{ALRM} =3D su=
b { print &quot;alarm!\n&quot;; };<br>
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 alarm(2);<br>=A0=A0=A0=A0=A0=
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 print &quot;hi\n&quot;;<br>=A0=A0=A0=A0=A0=
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 sleep 5;<br>=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=
=A0=A0=A0=A0=A0 alarm(0);<br>=A0=A0=A0=A0=A0=A0=A0 };<br>}<br><br>but the s=
cript in attachment doesn&#39;t works :(<br><br>Thank you very much,<br>
Al<br>

--bcaec548a2b119c52204abde6d0d--
--bcaec548a2b119c52704abde6d0f
Content-Type: text/plain; charset=US-ASCII; name="test_alarm.txt"
Content-Disposition: attachment; filename="test_alarm.txt"
Content-Transfer-Encoding: base64
X-Attachment-Id: f_gs1kd4ir0

IyEvdXNyL2Jpbi9wZXJsDQoNCnVzZSBzdHJpY3Q7DQp1c2Ugd2FybmluZ3M7DQoNCnVzZSB0aHJl
YWRzOw0KDQokfD0xOw0KDQokU0lHe0lOVH0gPSBzdWIgew0KICAgICAgICB0aHJlYWRzLT5leGl0
KCk7DQogICAgICAgIGV4aXQoMSk7DQp9Ow0KDQpteSAkdGhyID0gdGhyZWFkcy0+bmV3KFwmVGVz
dHN1Yik7DQokdGhyLT5kZXRhY2goKTsNCg0Kd2hpbGUoMSl7DQp9DQoNCmV4aXQoMCk7DQoNCnN1
YiBUZXN0c3View0KDQogICAgICAgIHdoaWxlKDEpew0KICAgICAgICAgICAgICAgIGV2YWwgew0K
DQogICAgICAgICAgICAgICAgICAgICAgICBsb2NhbCAkU0lHe0FMUk19ID0gc3ViIHsgcHJpbnQg
ImFsYXJtIVxuIjsgfTsNCg0KICAgICAgICAgICAgICAgICAgICAgICAgYWxhcm0oMik7DQoNCiAg
ICAgICAgICAgICAgICAgICAgICAgIHNsZWVwIDU7DQoNCiAgICAgICAgICAgICAgICAgICAgICAg
IGFsYXJtKDApOw0KICAgICAgICAgICAgICAgIH07DQogICAgICAgIH0NCn0NCg==
--bcaec548a2b119c52704abde6d0f--