OpenForum RSS: ��b threads, Sys::SigAction � �� alarm.

��b threads, Sys::SigAction � �� alarm. (jr)

Wed, 07 Nov 2007 11:54:21 GMT

>[�� ]
>sub Tail {
> $SIG{'KILL'} = sub { close(TFH); threads->exit(); };
> open(TFN,'tail -F -n 0 some_file |');
> while(<TFN>) {
> ...
> }
> return $some;
>}
>
>��, �� -�� . �� , �� ӣ �� 'while(<TFN>)'.

�� , �� (� ��, � �� ) � perl �� ...
�� fork ��, �.�. �� ALRM � �� .

��b threads, Sys::SigAction � �� alarm. (alexvs)

Wed, 07 Nov 2007 11:47:05 GMT

>man perlthtut
>
>Similarly, mixing signals and threads should not be attempted. Implementations are
>platform-dependent, and even the POSIX semantics may not be what you
>expect (and Perl doesn't even give you the full POSIX API).
>
>
>�� , �� .

�� "��" �� :(

�� . �� N ��?
my $first = threads->create(\&Tail);
sleep(10);
my $some = $first->kill('KILL')->join();

sub Tail {
$SIG{'KILL'} = sub { close(TFH); threads->exit(); };
open(TFN,'tail -F -n 0 some_file |');
while(<TFN>) {
...
}
return $some;
}

��, �� -�� . �� , �� ӣ �� 'while(<TFN>)'.

��b threads, Sys::SigAction � �� alarm. (jr)

Mon, 08 Oct 2007 11:58:05 GMT

��b threads, Sys::SigAction � �� alarm. (angra)

Mon, 08 Oct 2007 11:53:17 GMT

man perlthtut

Similarly, mixing signals and threads should not be attempted. Implementations are platform-dependent, and even the POSIX semantics may not be what you expect (and Perl doesn't even give you the full POSIX API).

�� , �� .

OpenForum RSS: �����b threads, Sys::SigAction � ������� alarm.

�����b threads, Sys::SigAction � ������� alarm. (jr)

�����b threads, Sys::SigAction � ������� alarm. (alexvs)

�����b threads, Sys::SigAction � ������� alarm. (jr)

�����b threads, Sys::SigAction � ������� alarm. (angra)

OpenForum RSS: ��b threads, Sys::SigAction � �� alarm.

��b threads, Sys::SigAction � �� alarm. (jr)

��b threads, Sys::SigAction � �� alarm. (alexvs)

��b threads, Sys::SigAction � �� alarm. (jr)

��b threads, Sys::SigAction � �� alarm. (angra)