Question

How do I copy a directory including sub directories excluding files or directories that match a certain regex on a Windows system?

Answer 1

I’d do something like this:

use File::Copy; sub copy_recursively {     my ($from_dir, $to_dir, $regex) = @_;     opendir my($dh), $from_dir or die 'Could not open dir '$from_dir': $!';     for my $entry (readdir $dh) {         next if $entry =~ /$regex/;         my $source = '$from_dir/$entry';         my $destination = '$to_dir/$entry';         if (-d $source) {             mkdir $destination or die 'mkdir '$destination' failed: $!' if not -e $destination;             copy_recursively($source, $destination, $regex);         } else {             copy($source, $destination) or die 'copy failed: $!';         }     }     closedir $dh;     return; }