[Summary view] [Print] [Text view]

   1  #!/usr/bin/perl
   2  use strict;
   3  use File::Find;
   4  use File::Path;
   5  sub enleve_moi_ca {
   6      if ($_ eq ".svn"){   
   7      rmtree($_) ;
   8      $File::Find::prune=1;
   9      }
  10  }
  11  find(\&enleve_moi_ca,".");