perl 中用shell.pm调用shell命令

perl 中用shell.pm调用shell命令

code:

#!/usr/bin/perl -w

use strict;
use Shell qw/webbench/;

my @array = ();

open FILE,'<','url.txt' or die "$!\n";

while (<FILE>) {
       chomp;
       /(\S+)/;
       push @array,$1;
}

close FILE;


while (1) {

       for my $url (@array) {
           my $sh = Shell->new;
           print $sh->webbench("-c 500 -t 60 $url");
       }

sleep 5

}