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

76 votes482 views6 answers
Download league of legends
Perl
1 vote494 views2 answers
Perl array
Perl
0 vote412 views1 answer
Unique in perl
Perl
2 votes489 views1 answer
Perl lowercase
Perl
0 vote490 views1 answer
Mean data frame columns by group R
Perl
0 vote507 views1 answer
Perl leading zeros formatting sprintf
Perl
0 vote483 views1 answer
Perl mechanize infinite scroll
Perl
0 vote401 views1 answer
Ternary operator perl
Perl
6 votes493 views6 answers
Virtualenv
Perl
1 vote461 views1 answer
Perl print @INC
Perl