Diff for scripts/perl/oracle/oracledump.pl between version 1.16 and 1.17
| version 1.16, 2007/03/18 04:25:38 |
version 1.17, 2007/03/27 16:26:41 |
|
|
| #!/usr/bin/perl |
#!/usr/bin/perl |
| |
|
| # $Platon: scripts/perl/oracle/oracledump.pl,v 1.15 2007-03-17 07:27:43 nepto Exp $ |
# $Platon: scripts/perl/oracle/oracledump.pl,v 1.16 2007-03-18 04:25:38 nepto Exp $ |
| |
|
| use strict; |
use strict; |
| |
|
|
|
| |
|
| if ( !defined $opt_no_create_info ) { |
if ( !defined $opt_no_create_info ) { |
| if ($opt_mysql_compliant_dump) { |
if ($opt_mysql_compliant_dump) { |
| |
if ($row[5] =~ /\((.*)\)/) { |
| |
$row[5] = $1; |
| |
} elsif ($row[5] == 'NULL' and $row[6] ne 'Y') { |
| |
# default NULL for NOT NULL column |
| |
undef $row[5]; |
| |
} |
| printf( " %1s%-32s %-15s %-21s %-8s\n", |
printf( " %1s%-32s %-15s %-21s %-8s\n", |
| ( $c != 1 ? ',' : ' ' ), |
( $c != 1 ? ',' : ' ' ), |
| '`'.lc( $row[0] ).'`', |
'`'.lc( $row[0] ).'`', |
|
|
| : ( int( $row[3] ) <= 11 |
: ( int( $row[3] ) <= 11 |
| ? 'INT' : 'INT(' . $row[3] . ')' ) |
? 'INT' : 'INT(' . $row[3] . ')' ) |
| ) |
) |
| : ( $row[1] eq 'VARCHAR2' |
: ( $row[1] eq 'VARCHAR2' |
| ? ( $row[2] > 255 |
? ( $row[2] > 255 |
| ? 'TEXT' : 'VARCHAR(' . $row[2] . ')' ) |
? 'TEXT' : 'VARCHAR(' . $row[2] . ')' ) |
| : ( $row[1] eq 'DATE' |
: ( $row[1] eq 'DATE' |
| ? 'DATETIME' : $row[1] ) ) ), |
? 'DATETIME' |
| |
: ( $row[1] eq 'CLOB' |
| |
? 'BLOB' : $row[1] ) ) ) ), |
| ( defined $row[5] |
( defined $row[5] |
| ? ($row[5] =~ /^SYSDATE/i ? '' : 'DEFAULT ' . $row[5]) |
? ($row[5] =~ /^SYSDATE/i ? '' : 'DEFAULT ' . $row[5]) |
| : '' ), |
: '' ), |
Platon Group <platon@platon.org> http://platon.org/
|
|
Login
Registration
Slovak
![[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}
Up to