jdlev has asked for the wisdom of the Perl Monks concerning the following question:
my $query = "SELECT Name FROM Table WHERE Name= 'Will Tu''ufo''ou'"; my $sth = $dbh->prepare($query); $sth->execute(); while($name = $sth->fetchrow_array) { $originalName = $name; $name =~ s/jr//i; #removes 'jr' from names $name =~ s/III//i; #removes 'III' from names $name =~ s/\s+$//; #removes ' ' from end of name #print $name . "\n"; if ($originalName =~ m/'/) { $originalName =~ s/'/''/g; print $originalName; } $updateQuery = "UPDATE week13dk SET Name = '$name' WHERE Name += '$originalName'"; my $uth = $dbh->prepare($updateQuery); $uth->execute(); }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: SQL Statement Not Firing Correctly?
by Corion (Patriarch) on Nov 28, 2013 at 08:17 UTC | |
by boftx (Deacon) on Nov 28, 2013 at 22:12 UTC |