Perl and Rsync

musiqdefunk · 09-15-2011, 09:40 AM

I have a rsync script written in Perl which rsync's a dmp file but it's been taking 7 hours longer than usual... how do I go about add a print to the rsync so i can see the progress in a log...

use POSIX qw/strftime/;

$export_dir = "/oracle/path";
$remote_dir = "/oracle/path";
$cur_date = strftime "%Y%m%d", localtime time;

chdir( $export_dir ) or die "Can't chdir to $export_dir $!";

my $dump = "AP1_fullexp2_$cur_date.dmp";
if (-e $dump) {
`/bin/su - oracle -c "rsync -zpogv --progress $export_dir/$dump oracle\@IPADRESS:$remote_dir/"`;
} else {
die "$dump export does not exist. \n";

thanks

theNbomr · 09-15-2011, 09:57 AM

Use something more like:

Code:

    open( RSYNC "/bin/su - oracle -c \"rsync -zpogv --progress $export_dir/$dump oracle\@IPADRESS:$remote_dir/\" |" );
    while( <RSYNC> ){
        print $_;
    }

--- rod.

musiqdefunk · 09-21-2011, 11:42 AM

Ok so I'm done with Perl, it's just not my cup of tea. So I decided to just rewrite the script in Bash.

It works but I have 2 more complicated things I would like it to do, one I would like for it to rerun if the rsync fails and 2 I would like an output of the files I am deleting.

Code:

export_dir="/oracle/path"
remote_dir="/u04/path"
archive_dir="/oracle_exports/path"
date=`date +%Y%m%d`
dump="fullexp_$date.dmp"

cd $export_dir
if [ -f $dump ]; then
        /bin/su - oracle -c "rsync -navz --progress $export_dir/$dump oracle@ipaddress:$remote_dir/" > $export_dir/db_rsync$date.log;
else
        echo "$dump export does not exist"
fi

exit 0

find ${export_dir} -name '*.bz2' -mtime +31 -type f exec rm -rf {} \;

cd $archive_dir

find $(archive_dir} -name '*.bz2' -mtime +360 -type f exec rm -rf {} \;