#!/usr/bin/perl -w

use strict;

use File::Basename;

use constant OLDDIR => '/app/data/sale_report';
use constant NEWDIR => '/app/shared/sale_report';

open( FIND, "find " . OLDDIR . " -type f |" ) || die "$!";

while ( my $file = <FIND> ) {
    chomp $file;
    my $dest   = $file;
    my $olddir = OLDDIR;
    my $newdir = NEWDIR;
    $dest =~ s|$olddir|$newdir|g;

    my $cmd = "cp $file $dest";

    if ( !-e $dest || ( -M $dest > -M $file ) ) {
        system( "mkdir -p " . dirname($dest) );
        print "$cmd\n";
        system($cmd );
    }
}

close FIND;