Mega Code Archive

 

Categories / Perl / File

 

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";