perl 中用shell.pm调用shell命令

code:

1. #!/usr/bin/perl -w 
2.  
3. use strict; 
4. use Shell qw/webbench/; 
5.  
6. my @array = (); 
7.  
8. open FILE,'<','url.txt' or die "$!\n"; 
9.  
10. while (<FILE>) { 
11.        chomp; 
12.        /(\S+)/; 
13.        push @array,$1; 
14. } 
15.  
16. close FILE; 
17.  
18.  
19. while (1) { 
20.  
21.        for my $url (@array) { 
22.            my $sh = Shell->new; 
23.            print $sh->webbench("-c 500 -t 60 $url"); 
24.        } 
25.  
26. sleep 5 
27.  
28. } 

 本文转自dongfang_09859 51CTO博客，原文链接：http://blog.51cto.com/hellosa/507906，如需转载请自行联系原作者