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

      
  
 
  

    写着玩呢