perl 中用shell.pm调用shell命令

发布时间：2020-12-16 00:41:51 所属栏目：大数据来源：网络整理

导读：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;? }?

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?
  
  ?
  
  }?

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!