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
- }
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。
