perl如何实现定时器的功能，即在一段时间内某操作没有结束，跳出该操作，执行其他操作。

[jockywin]

我现在perl脚本中通过ssh到网络中某台机器取信息，请问如何在取信息操作超过一定时间如10秒后，跳出该操作，执行其他的操作，请高手指教，谢谢

[jockywin]

谢谢
fibbery(飞)：请问perl如何实现多线程，能再具体一点吗，谢谢
xyzxyz1111：你说的子进程是在外围一个perl脚本中，调用另一个perl脚本进行ssh连接，然后用alarm来定时，超过多少秒，kill掉被调用的脚本是这样吗？

另外，有的时候没有交换密匙的话，ssh连接弹出要求输入密码的提示，在perl中如何判断并实现尝试输入密码呢。
请高手指点，在线等待，谢谢

[xyzxyz1111]

用alarm的过程如

sub alarm_action{
... time out action
}
$SIG{ALRM} = \&alarm_action;
alarm $timeout;
... ssh action
alarm 0; # cancel alarm signal
...

[fibbery]

可以试一试多线程

[xyzxyz1111]

使用子进程进行ssh连接, 父进程等待超时后杀掉子进程，并做其他操作.
也可以使用alarm 定时器

[hongweig]

别使用多线程。
这个例子也不需要使用多线程。
楼上的兄弟正解。

[jockywin]

谢谢，各位了，马上结帖放分