Gossamer Forum: General: Perl Programming: Foreign Charachters?

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 Frown

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

Foreign Charachters?

Last edited by:

Last edited by: