yoba

yoba.pl

use v5.16;
use File::Copy qw/move copy/;

my $f = 'yoba';
my $t = 'yoba2';

my @queue = ($f, $t);

while (@queue) {
    my $from = shift @queue;
    my $to = shift @queue;
    say "Current dir is $from";
    opendir(my $hfrom, $from);
    mkdir "$to";
    say "Creating dir $to";
    while (readdir $hfrom) {
        if (/(?:\.)|(?:\.\.)/m) {
            next;
        }
        if (-d "$from/$_") {
            push @queue, "$from/$_";
            push @queue, "$to/$_";
        } else {
            #move("$from/$_", "$to/$_");
            #say "Moving $from/$_ $to/$_");
            copy("$from/$_", "$to/$_");
            say "Copying '$from/$_' '$to/$_'";
        }
    }
}