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 vote187 views1 answer
Perl format decimal 2 places not rounding
Perl
0 vote174 views1 answer
What is the index number of the last element of an array with 9 elements?
Perl
0 vote236 views1 answer
Read a file in perl
Perl
0 vote230 views3 answers
Perl list files and folders in a directory
Perl
76 votes233 views6 answers
Download league of legends
Perl
0 vote186 views1 answer
What happened to perl 6
Perl
0 vote215 views1 answer
Perl remove all whitespace
Perl
0 vote157 views1 answer
What is perl poetry
Perl
0 vote182 views1 answer
Perl split array into smaller arrays
Perl
0 vote236 views1 answer
Perl leading zeros formatting sprintf
Perl