Rozdiely pre scripts/perl/mysql/mysql-table-copy.pl medzi verziami 1.11 a 1.12
| verzia 1.11, 2005/05/10 09:57:17 |
verzia 1.12, 2005/05/10 10:00:16 |
|
|
| # 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.10 2005/05/10 09:54:25 nepto Exp $ |
# $Platon: scripts/perl/mysql/mysql-table-copy.pl,v 1.11 2005/05/10 09:57:17 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 |
|
|
| sub cur_date() |
sub cur_date() |
| { # {{{ |
{ # {{{ |
| my ($sec, $msec) = Time::HiRes::gettimeofday; |
my ($sec, $msec) = Time::HiRes::gettimeofday; |
| my $time_string = strftime "%Y-%m-%d %X.$msec", gmtime; |
my $time_string = strftime "%Y-%m-%d %X.$msec", localtime; |
| |
|
| return $time_string; |
return $time_string; |
| } # }}} |
} # }}} |
Platon Group <platon@platon.sk> http://platon.sk/
|
|
Prihlásiť
Registrácia
English
![[BACK]](http://cvsweb.platon.sk/icons/back.gif){kind=icon}
![[TXT]](http://cvsweb.platon.sk/icons/text.gif){kind=icon}
![[DIR]](http://cvsweb.platon.sk/icons/dir.gif){kind=icon}
Vyššie na