Platon Technologies
neprihlásený Prihlásiť Registrácia
SlovakEnglish
open source software development oslavujeme 10 rokov vývoja otvoreného softvéru! Nedeľa, 25. október 2026
[BACK] [TXT][DIR] Vyššie na [Platon] / scripts / perl / mysql

Rozdiely pre scripts/perl/mysql/mysql-table-copy.pl medzi verziami 1.3 a 1.4

verzia 1.3, 2003/12/20 09:04:20 verzia 1.4, 2005/03/15 23:25:04
Riadok 10 
Riadok 10 
 # Licensed under terms of GNU General Public License.  # Licensed under terms of GNU General Public License.
 # All rights reserved.  # All rights reserved.
 #  #
 # $Platon: scripts/perl/mysql/mysql-table-copy.pl,v 1.2 2003/12/16 18:16:49 rajo Exp $  # $Platon: scripts/perl/mysql/mysql-table-copy.pl,v 1.3 2003/12/20 09:04:20 rajo Exp $
   
 # TODO: - reconnect on closed connection  # TODO: - reconnect on closed connection
 #       - managment for tables with multiple KEY columns  #       - managment for tables with multiple KEY columns
Riadok 60  print "Enter password for user $user2:\n
Riadok 60  print "Enter password for user $user2:\n
   
 $dbh1 = DBI->connect("DBI:mysql:" . $db_name1, $user1, $pass1) or die $DBI::errstr;  $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;  $dbh2 = DBI->connect("DBI:mysql:" . $db_name2, $user2, $pass2) or die $DBI::errstr;
   $dbh1->{mysql_auto_reconnect} = 1;
   $dbh2->{mysql_auto_reconnect} = 1;
   
 # }}}  # }}}
   
Riadok 91  $sql_delete_data = $dbh1->prepare(
Riadok 93  $sql_delete_data = $dbh1->prepare(
         "DELETE FROM $table WHERE $primary_key = ? LIMIT 1") or die $dbh1->errstr;          "DELETE FROM $table WHERE $primary_key = ? LIMIT 1") or die $dbh1->errstr;
   
 while (1) {  while (1) {
   
           # MySQL auto reconnect {{{
           my $num = 0;
           foreach my $dbh ($dbh1, $dbh2) {
                   $num++;
                   my $rv = 0;
                   while (!$rv) {
                           $rv = $dbh->ping();
                           $dbh->{mysql_auto_reconnect} = 1;
   
                           $rv += $dbh->ping();
                           $dbh->{mysql_auto_reconnect} = 1;
   
                           unless ($rv) {
                                   warn cur_date(), " ### Warning: DB #$num/2 ping error !!\n";
                                   sleep 1;
                           }
                   }
           } # }}}
   
         $sql_read_data->execute() or warn $dbh1->errstr;          $sql_read_data->execute() or warn $dbh1->errstr;
         while (my @row = $sql_read_data->fetchrow_array()) {          while (my @row = $sql_read_data->fetchrow_array()) {
                 my $prim_key = shift @row; # cut PRIMARY KEY column, which is not inserted                  my $prim_key = shift @row; # cut PRIMARY KEY column, which is not inserted
Legend:
Odstranené z verzie1.3  
zmenené riadky
  Pridané vo verzii1.4
Platon Group <platon@platon.sk> http://platon.sk/
Copyright © 2002-2006 Platon Group
Stránka používa redakčný systém Metafox 		Na začiatok