Gossamer Forum: General: Perl Programming: Foreign Charachters? (Andy)

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

Subject	Author	Views	Date
Foreign Charachters?	Andy	4298	Dec 27, 2002, 2:05 AM

Re: [Andy] Foreign Charachters?	Paul	4157	Jan 3, 2003, 9:12 AM

Re: [Paul] Foreign Charachters?	Andy	4183	Jan 3, 2003, 9:16 AM

Re: [Andy] Foreign Charachters?	webmaster33	4147	Jan 7, 2003, 7:48 AM