perl批量处理

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

导读：和我shell那一篇文章需求一样这个perl脚本是我找人写的 #!/bin/env?perl? ? use?strict;? ? opendir?DIRA,'/opt/test/20111201_import'?or?die?"$!n";? ? while?(my?$ fileA ?=? readdir ?DIRA)?{? ???chomp?$fileA;? ???next?unless?$ fileA ?=~?/.flv$/

和我shell那一篇文章需求一样这个perl脚本是我找人写的

 
 
#!/bin/env?perl?
  
  ?
  
  use?strict;?
  
  ?
  
  opendir?DIRA,'/opt/test/20111201_import'?or?die?"$!n";?
  
  ?
  
  while?(my?$fileA?=?readdir?DIRA)?{?
  
  ???chomp?$fileA;?
  
  ???next?unless?$fileA?=~?/.flv$/;?
  
  ???printf?"%sn",$fileA;?
  
  ?? #perl 如何调用系统命令 我主要就是想知道这个的
  
   system?"yamdi?-i?$fileA?-o?tmp_$fileA?-c?'modify?by?mytv365.com'";??
  
  }?
  
  ?
  
  close?DIRA;?
  
  ?
  
  opendir?DIRB,'/opt/test/20111201_import'?or?die?"$!n";?
  
  ?
  
  while?(my?$fileB?=?readdir?DIRB)?{?
  
  ???chomp?$fileB;?
  
  ???unlink?$fileB?if?$fileB?=~?/^d+/;?
  
  ???rename?$fileB,$1?if?$fileB?=~?/^w+_(d+.flv)$/;?
  
  }?
  
  ?
  
  close?DIRB;?

?这个脚本不能体现perl真正的强悍之处但相比shell来说做同一件事 perl确实比shell强多了尤其是在这种文件数目过大文件过大的情况下?

（编辑：李大同）

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