I misstyped something trying to make the message shorter.
New piece of code below is "copy and paste".
The variable $filecontent is printed into the file then, which I compared
with another file created by mysqldump.
(DBI version is 1.13)
--------------------
(
PrintError => 0,
RaiseError => 0
);
.......
foreach my $table (@tablelist) {
$filecontent .= "\n#\tTABLE $table \n";
$filecontent .= createTableSQL ([$table],$dropifexists) unless ($include
eq 'data');
unless ($include eq 'structure') {
$filecontent .= "\n#\tDUMPING DATA\n\n";
my $query = "SELECT * FROM $table";
my ($sth, $res) = prepare_execute($query);
while (my @row = $sth->fetchrow_array){
$filecontent .= "INSERT INTO $table VALUES ( ";
my @rowdata;
for (my $i = 0; $i < @row; $i++) {
push @rowdata, $dbh->quote($row[$i]);
}
$filecontent .= join (', ', @rowdata);
$filecontent .= ");\n";
}
$sth->finish;
}
$filecontent .=
"\n#--------------------------------------------------------\n";
}
.......
sub prepare_execute {
my $sth = $dbh->prepare($_[0]) or bail_out ("Cannot prepare
query:\n$query");
my $res = $sth->execute() or bail_out ("Cannot execute query:\n$query");
return ($sth, $res)
}
----- Original Message -----
From: "Sterin, Ilya" <[EMAIL PROTECTED]>
To: "LIBASOV IOANNIS" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Tuesday, May 08, 2001 4:55 AM
Subject: RE: quoting binaries (MYSQL)
> First you are providing an arg to your execute, though I don't see you
using
> any placeholder. See perldoc for prepare() and execute() statements, so I
> don't even know how you are able to run the script. Do you have
RaiseError
> => 1 and PrintError => 1. Also what is the error message you are getting?
> You never provided that to us.
>
> Ilya Sterin
>
>
>
> -----Original Message-----
> From: LIBASOV IOANNIS [mailto:[EMAIL PROTECTED]]
> Sent: Monday, May 07, 2001 8:18 PM
> To: Sterin Ilya; [EMAIL PROTECTED]
> Subject: Re: quoting binaries (MYSQL)
>
>
> Hi!
> (Sorry for delay!)
>
> The fragment below shows how I made data dump of the table, containing
> binary data.
> Then, using editor (Ultraedit) I compared the content of the output file
> with the file created by mysqldump.
> The difference is that the DBI->quote() did not escape some characters
that
> were escaped by mysqldump. (for example double quotes or some characters
> that I can not )
> As the result, the file created by my script could not run.
>
> foreach $table (@tablelist) {
> $sth = $dbh->prepare("SELECT * FROM $table");
> $sth->execute();
> while (my @row = $sth->fetchrow_array){
> $datadump .= "INSERT INTO $table VALUES ( ";
> my @rowdata;
> for (my $i = 0; $i < @row; $i++) {
> push @rowdata, $dbh->quote($row[$i]);
> }
> $datadump .= join (', ', @rowdata) . ");\n";
> }
> $sth->finish;
> }
>
>
>
> ----- Original Message -----
> From: Sterin, Ilya <[EMAIL PROTECTED]>
> To: 'Yannis Livassof ' <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
> Sent: Wednesday, May 02, 2001 4:03 PM
> Subject: RE: quoting binaries (MYSQL)
>
>
> > We need more code than (SELECT... and INSERT...). How did you see the
> funny
> > unescaped character? Did you print them out, in that case did you
binmode
> > STDOUT?
> >
> > Use trace() to see exactly what is going on. Also an error message on
> > insert would be very helpful to us.
> >
> > Ilya Sterin
> >
> > -----Original Message-----
> > From: Yannis Livassof
> > To: [EMAIL PROTECTED]
> > Sent: 05/02/2001 3:28 AM
> > Subject: quoting binaries (MYSQL)
> >
> > Hi!
> >
> > Does anybody knows how to quote the binarie fields properly using the
> > DBI.pm (on Mysql)?
> >
> > I used "SELECT ..." ,
> > then
> > $dnh->quote(some data),
> > then
> > $dbh->do("INSERT ...")
> > The last "do" leads to error.
> >
> >
> > As I see, some funny characters selected from binary fields are not
> > escaped. I compared it with the output generated with "mysqldump".
> >
> > Plese help!!!!!
> >
> > Yannis Livassov
