看板 Perl 關於我們 聯絡資訊
※ 引述《LiloHuang (相見不如懷念)》之銘言: : #!/usr/bin/perl : run(); : run(); : run(); : sub run { : my $pid = fork(); : if($pid == 0){ : alarm(3); # 秒數 : exec("ping www.hinet.net"); # exec system call : }else{ : waitpid($pid, 0); : } : } 謝謝快速回應 exec("ping www.hinet.net | tee run.log"); exec 還是有類似的問題 我想應該是命令比較複雜的關係,所以 perl 才會用 sub shell 處理 不過,至少可以先用 exec 來做了 tee 的部份再用 perl 的方式處理好了 謝謝你 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.113.203.139
LiloHuang:嗯嗯 :) 08/22 19:48