Move files to new directory

foreach my $file (@files) 
{
    my $old = "$srcdir/$file";
    my $new = "$dest/$file";
    my $subdir = $file;
    while (length($subdir)>0)
    {
        if (-d "$dest/$subdir")
        {
            $new = "$dest/$subdir/$file";
            last;
        }
        chop($subdir);
    }

    rename($old, $new) or die "Move $old -> $dest failed: $!";
}

Source: stackoverflow.com

Similar codes

0 vote357 views1 answer
Unique in perl
Perl
1 vote380 views2 answers
Perl http request
Perl
0 vote427 views2 answers
Perl make a new directory
Perl
0 vote316 views1 answer
Perl download images files
Perl
0 vote379 views1 answer
What is perl poetry
Perl
2 votes416 views1 answer
Perl replace substring
Perl
0 vote436 views1 answer
Perl mechanize check mirror response for errors
Perl
0 vote420 views3 answers
Perl list files and folders in a directory
Perl
0 vote400 views1 answer
Perl mongodb conf location
Perl
0 vote433 views1 answer
Perl mechanize infinite scroll with attempt count
Perl