Can anyone see any reason why this script won't work? All I need it to do is loop through the two fields, printing out the SQL statements, ready to be run via MySQLMan. I'm thinking it must be the foreign charachters messing up the script. I am getting a 500 IS Error, but because I'm running it locally, there is no debugging info, and fatalsToBrowser is not picking anything up
The code is;
use CGI::Carp qw(fatalsToBrowser);
#use strict;
print "Content-type: text/html \n\n";
# for link stuff...
#my @fields = qw(Title Description);
# can overwrite here... :)
my @fields = qw(Name Full_Name);
foreach (@fields) {
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, '\','')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'ñ', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'ó', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'ú', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'é', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'á', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'ü', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'É', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'Ó', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, '\\\'', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'à', ' ')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'ç', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'ï', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'è', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'À', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'Í', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'Ú', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'ë', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'Ñ', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'î', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'î', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'È', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'ä', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'ê', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'î', 'i')\;|;
}
print "done";
Thanks for any help you can offer :)
Cheers
Andy (mod)
andy@ultranerds.co.uk
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package | GLinks ULTRA Package PRO
Links SQL Plugins | Website Design and SEO | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
The code is;
Code:
#!/usr/bin/perl use CGI::Carp qw(fatalsToBrowser);
#use strict;
print "Content-type: text/html \n\n";
# for link stuff...
#my @fields = qw(Title Description);
# can overwrite here... :)
my @fields = qw(Name Full_Name);
foreach (@fields) {
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, '\','')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'ñ', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'ó', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'ú', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'é', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'á', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'ü', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'É', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'Ó', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, '\\\'', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'à', ' ')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'ç', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'ï', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'è', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'À', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'Í', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'Ú', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'ë', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'Ñ', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'î', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'î', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'È', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'ä', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'ê', '')\;|;
print qq|UPDATE lsql_Category SET $_ = REPLACE($_, 'î', 'i')\;|;
}
print "done";
Thanks for any help you can offer :)
Cheers
Andy (mod)
andy@ultranerds.co.uk
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package | GLinks ULTRA Package PRO
Links SQL Plugins | Website Design and SEO | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!