Rozdiely pre scripts/perl/mysql/mysqldump-convert.pl medzi verziami 1.1 a 1.2
| verzia 1.1, 2004/10/14 09:09:43 |
verzia 1.2, 2004/10/14 09:35:41 |
|
|
| # Usage: mysqldump --opt -u user Database | ./mysqldump-convert.pl |
# Usage: mysqldump --opt -u user Database | ./mysqldump-convert.pl |
| # |
# |
| |
|
| # $Platon$ |
# $Platon: scripts/perl/mysql/mysqldump-convert.pl,v 1.1 2004/10/14 09:09:43 rajo Exp $ |
| |
|
| use strict; |
use strict; |
| |
|
| Riadok 46 while (my $line = <STDIN>) { |
|
| Riadok 46 while (my $line = <STDIN>) { |
|
| if ($input =~ s/^,\s*//m) { |
if ($input =~ s/^,\s*//m) { |
| $column_t = 0; |
$column_t = 0; |
| $insert_t = 0; |
$insert_t = 0; |
| $values .= ", "; |
$values .= ","; |
| } |
} |
| elsif ($input =~ s/^\s*\)\s*,\s*\(//m) { # end of values |
elsif ($input =~ s/^\s*\)\s*,\s*\(//m) { # end of values |
| $column_t = 0; |
$column_t = 0; |
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