Opensource.Platon.SK CVS: scripts/perl/mysql/mysql-table-copy.pl - diff

Vyššie na [Platon] / scripts / perl / mysql

verzia 1.2, 2003/12/16 18:16:49

verzia 1.3, 2003/12/20 09:04:20

Riadok 10

# Licensed under terms of GNU General Public License.

# $Platon: scripts/perl/mysql/mysql-table-copy.pl,v 1.1 2003/11/07 08:42:49 rajo Exp $

# $Platon: scripts/perl/mysql/mysql-table-copy.pl,v 1.2 2003/12/16 18:16:49 rajo Exp $

# TODO: - reconnect on closed connection

# - managment for tables with multiple KEY columns

Riadok 37 sub read_input();

$default_timeout = 10; # 10 seconds

if ($#ARGV < 2) {

print STDERR "Usage: $0 database=DB1,host=localhost database=DB2,host=remotehost Table [<time_interval>]\n";

print STDERR "Usage: $0 database=DB1,host=localhost database=DB2,host=localhost Table [user1] [pass1] [user2] [pass2] [<time_interval>]\n";

exit 1;

}

($db_name1, $db_name2, $table, $timeout) = @ARGV;

($db_name1, $db_name2, $table, $user1, $pass1, $user2, $pass2, $timeout) = @ARGV;

# we are using ',' as separators, because ';' is separator in shell

$db_name1 =~ s/,/;/g;

Riadok 53 if (!defined $timeout or $timeout !~ m/^

}

# user, password and connect {{{

print "Enter username for database $db_name1:\n";

print "Enter username for database $db_name1:\n" and $user1 = read_input() unless defined $user1;

$user1 = read_input();

print "Enter password for user $user1:\n" and $pass1 = read_input() unless defined $pass1;

print "Enter password for user $user1:\n";

print "Enter username for database $db_name2:\n" and $user2 = read_input() unless defined $user2;

$pass1 = read_input();

print "Enter password for user $user2:\n" and $pass2 = read_input() unless defined $pass2;

print "Enter username for database $db_name2:\n";

$user2 = read_input();

print "Enter password for user $user2:\n";

$pass2 = read_input();

$dbh1 = DBI->connect("DBI:mysql:" . $db_name1, $user1, $pass1) or die $DBI::errstr;

$dbh2 = DBI->connect("DBI:mysql:" . $db_name2, $user2, $pass2) or die $DBI::errstr;


Copyright © 2002-2006 Platon Group Stránka používa redakčný systém Metafox	Na začiatok