看板 [ Perl ]
討論串[問題] 如何讓特定程式只執行一段時間?
共 3 篇文章
首頁
上一頁
1
下一頁
尾頁

推噓1(1推 0噓 0→)留言1則,0人參與, 最新作者roylee17 (把我id還我阿......)時間18年前 (2007/08/22 19:46), 編輯資訊
0
0
0
內容預覽:
謝謝快速回應. exec("ping www.hinet.net | tee run.log");. exec 還是有類似的問題. 我想應該是命令比較複雜的關係,所以 perl 才會用 sub shell 處理. 不過,至少可以先用 exec 來做了. tee 的部份再用 perl 的方式處理好了.

推噓0(0推 0噓 0→)留言0則,0人參與, 最新作者LiloHuang (相見不如懷念)時間18年前 (2007/08/22 19:17), 編輯資訊
0
0
0
內容預覽:
#!/usr/bin/perl. run();. run();. run();. sub run {. my $pid = fork();. if($pid == 0){. alarm(3); # 秒數. exec("ping www.hinet.net"); # exec system call.

推噓0(0推 0噓 0→)留言0則,0人參與, 最新作者roylee17 (把我id還我阿......)時間18年前 (2007/08/22 18:22), 編輯資訊
0
0
0
內容預覽:
--------------------------------------------. run();. run();. run();. sub run{. if( !fork()){ # child. alarm 300;. system( "$cmd");. }. wait;. }. ----
(還有291個字)
首頁
上一頁
1
下一頁
尾頁