I'm using the following script to upload dump files onto Amazon Oracle RDS instance. This process is well documented in books. However after some work done on the database I need to get the dump back. Unfortunately this side of the task is not documented at all. Amazon does not plan his customer to leave RDS in an easy way.
Please help to convert this script to do a reverse job, namely to get files FROM Amazon Oracle RDS save it TO my workstation. The dump file has been prepared on RDS using Oracle's DBMS_DATAPUMP
function.
use DBI;
use warnings;
use strict;
# RDS instance info
my $RDS_PORT = 1521;
my $RDS_HOST = "blabla12345.us-west-2.rds.amazonaws.com";
my $RDS_LOGIN = "username/123456";
my $RDS_SID = "ORCL";
#The $ARGV[0] is a parameter you pass into the script
my $dirname = "DATA_PUMP_DIR";
my $fname = $ARGV[0];
my $data = "dummy";
my $chunk = 8192;
my $sql_open = "BEGIN perl_global.fh := utl_file.fopen(:dirname, :fname, 'wb', :chunk); END;";
my $sql_write = "BEGIN utl_file.put_raw(perl_global.fh, :data, true); END;";
my $sql_close = "BEGIN utl_file.fclose(perl_global.fh); END;";
my $sql_global = "create or replace package perl_global as fh utl_file.file_type; end;";
my $conn = DBI->connect(
'dbi:Oracle:host=' . $RDS_HOST . ';sid=' . $RDS_SID . ';port=' . $RDS_PORT,
$RDS_LOGIN,
''
) || die($DBI::errstr . "\n");
my $updated = $conn->do($sql_global);
my $stmt = $conn->prepare($sql_open);
$stmt->bind_param_inout(":dirname", \$dirname, 12);
$stmt->bind_param_inout(":fname", \$fname, 12);
$stmt->bind_param_inout(":chunk", \$chunk, 4);
$stmt->execute() || die($DBI::errstr . "\n");
open(INF, $fname) || die "\nCan't open $fname for reading: $!\n";
binmode(INF);
$stmt = $conn->prepare($sql_write);
my %attrib = ('ora_type', '24');
my $val = 1;
while ( $val > 0 ) {
$val = read(INF, $data, $chunk);
$stmt->bind_param(":data", $data, \%attrib);
$stmt->execute() || die($DBI::errstr . "\n");
}
die "Problem copying: $!\n" if $!;
close INF || die "Can't close $fname: $!\n";
$stmt = $conn->prepare($sql_close);
$stmt->execute() || die($DBI::errstr . "\n");