循環(huán)中，執(zhí)行命令超過3秒沒返回，循環(huán)繼續(xù)

shijiang1130

open my $fh,'<','host.txt' or die "not open";

while (my $host= readline $fh){
...
    $result = `/bin/connect $host`;     //這個命令執(zhí)行超過3秒沒返回，while循環(huán)繼續(xù)下一個元素
...
}

erlang來做

arserangel

用 sys:cmd() ?

shijiang1130

不用進程：

1. -module(timeout).
   
2. -compile(export_all).
   
3. 
   
4. r()->
   
5.         {ok,S}=file:read_file("host.txt"),
   
6.         %open my $fh,'<','host.txt' or die "not open";
   
7.         H=binary:split(S,<<"\r\n">>,[global]),
   
8.         to(H).
   
9.         %while (my $host= readline $fh){
   
10. %...
    
11. 
    
12. to([])->
    
13.         [];
    
14. to([H|T])->
    
15.           timer:sleep(100),
    
16.         Str ="/bin/connect "++ erlang:binary_to_list(H),
    
17.         io:format("run string is~p~n",[Str]),
    
18.         os:cmd(Str),
    
19.         to(T).
    
20.     %$result = `/bin/connect $host`;     //這個命令執(zhí)行超過3秒沒返回，while循環(huán)繼續(xù)下一個元素
    
21. %...
    
22. %}
    

復(fù)制代碼

shijiang1130

1. Eshell V6.2  (abort with ^G)
   
2. 1> timeout:r().
   
3. run string is"/bin/connect 1.1.1.2"
   
4. run string is"/bin/connect 4.1.4.12"
   
5. []
   
6. 2>

復(fù)制代碼