perl 删除某个文件

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

导读：? [root@bogon?gongzuo]#?cat?-n?search.pl? ?????1??#!usr/bin/perl? ?????2??use??strict;? ?????3??use?warnings;? ?????4??my?$ dir ?=? "/home/gongzuo" ;? ?????5??opendir?DH,?$dir?or?die?"Cannot?open?$dir:?$!";? ?????6??foreach?my?$file?(?read

 
 
[root@bogon?gongzuo]#?cat?-n?search.pl?
  
  ?????1??#!usr/bin/perl?
  
  ?????2??use??strict;?
  
  ?????3??use?warnings;?
  
  ?????4??my?$dir?=?"/home/gongzuo";?
  
  ?????5??opendir?DH,?$dir?or?die?"Cannot?open?$dir:?$!";?
  
  ?????6??foreach?my?$file?(?readdir?DH?)?{?
  
  ?????7??????????next?if?(?$file?eq?'.'?);?
  
  ?????8??????????next?if?(?$file?eq?'..'?);?
  
  ?????9??????????if?(?$file?=~/shell/?)?{?
  
  ????10??????????unlink??$file;?linux系统里删除是rm，perl 删除用unlink,
  
  ????11??????????}?
  
  ????12??}?
  
  ????13??closedir?DH;?

写着玩呢

（编辑：李大同）

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