Diff for scripts/perl/mysql/mysqldump-convert.pl between version 1.1 and 1.2
| version 1.1, 2004/10/14 09:09:43 |
version 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; |
| |
|
| Line 46 while (my $line = <STDIN>) { |
|
| Line 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.org> http://platon.org/
|
|