arul's code
free code snippets

Copy specified directories from one location to another

Copy specified directories under /apps/tools


#/usr/bin/perl

# TITLE       : Copy specified directories under /apps/tools
# DESCRIPTION : This script is a very basic Perl script that copies
#                all specified directories from PRODUCTION1.com to PRODUCTION2.com
# CREATED     : Arul John May 2007
# MODIFIED    : Arul John May 2009
# NOTES
# 0. Create an ssh password-less connection as described in http://aruljohn.com/info/sshwithoutpassword/
# 1. Login to PRODUCTION2.com
# 2. Copy this script to PRODUCTION2.com and run it from the directory where you want the copied directories

# Variables
my $directories_in_prod = <> $dir EXISTS... not copying\n";
    } else {
        print "++ $dir - copying\n";
        system('scp -r USER1@PRODUCTION1.com:/apps/tools/'.$dir.' .');
    }
}

# Goodbye
print "\n # Goodbye\n";
exit;

Share this

Last Updated: Posted on 07 Feb 2015