| |
| | Siden er flyttet til http://icyman.cjb.net/ (Site not responding. Last check: 2007-08-20) |
 | | # sub create { my($self,$table_name,$fields,$index) = @_; my($query,@queries,$nr); $query="create table $table_name ("; foreach $field (@$fields) { $field =~ s/mediumint/integer/i; $field =~ s/float\(\d+,\d+\)/float/i; $field =~ s/double\(\d+,\d+\)/float/i; $field =~ s/double/float/i; $field =~ s/integer\(\d+\)/integer/i; $field =~ s/int\(\d+\)/integer/i; $field =~ s/smallint\(\d+\)/smallint/i; $field =~ s/smallinteger/smallint/i; $field =~ s/tinyint\(\d+\)/tinyint/i; $field =~ s/tinyinteger/tinyint/i; $field =~ s/blob/text/i; $query.= $field. |
 | | # sub create { my($self,$table_name,$fields,$index) = @_; my($query,@queries,$nr); $query="create table $table_name ("; foreach $field (@$fields) { $field =~ s/mediumint/integer/i; $field =~ s/float\(\d+,\d+\)/float/i; $field =~ s/int\(\d+\)/int/i; $field =~ s/double/float/i; $field =~ s/integer\(\d+\)/integer/i; $field =~ s/smallint\(\d+\)/smallint/i; $field =~ s/tinyint\(\d+\)/tinyint/i; $field =~ s/blob/text/i; $query.= $field. |
 | | # sub create { my($self,$table_name,$fields,$index) = @_; my($query,@queries,$nr); $query="create table $table_name ("; foreach $field (@$fields) { $field =~ s/mediumint/integer/i; $field =~ s/float\(\d+,\d+\)/float/i; $field =~ s/integer\(\d+\)/integer/i; $field =~ s/int\(\d+\)/integer/i; $field =~ s/tinyint\(\d+\)/smallint/i; $field =~ s/tinyint/smallint/i; $field =~ s/smallint\(\d+\)/smallint/i; $field =~ s/smallinteger/smallint/i; $field =~ s/blob/varchar(256)/i; $query.= $field. |
| www.geocities.com /Pentagon/Quarters/9335 (2836 words) |
|