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