Remove a directory tree? : rmtree « File « Perl

1. Perl
2. File
3. rmtree

Remove a directory tree?

    

    #!/usr/local/bin/perl -w

    use File::Path;

    my $count = rmtree(\@ARGV, 1, 1);
    print "There were $count files removed.\n";

   
    
    
    
  

Related examples in the same category