Reading UTF8 data from a PERL hash file

dpmv

Hi,

I have a PERL hash file which looks like this:
%breadcrumbs = (
"Home" => {
"bodyStyle" => "home",
"order" => ["Network Operators", "Consumers"],
"landing" => "/about/enabling/index.html",
"access" => "ENABLING WIRELESS",
"display" => "Home",
"Network Operators" => {
"landing" => "/about/enabling/operators.html",
"display" => "\303\211quipement du secteur des t\303\251l\303\251communications sans fil"
},
"Consumers" => {
"landing" => "/about/enabling/consumers.html",
"display" => "Consumers"
}
}
);

I am including this file inside a tpl using:
do "navhash.pl";

and retrieving the navigation display value using the following code:

my $navBlock = "Home";
my $navOrder = "Network Operators";
my $navName = $breadcrumbs{$navBlock}{$navOrder}{display};

Problem is when there are UTF8 chars in the hash the script is not able to read and displays an empty string instead.

Example value: "\303\211quipement du secteur des t\303\251l\303\251communications sans fil"

How should I read the UTF8 data from the hash file?

TIA

Adam Stoller

Is that structure hard-coded or is it being built up while reading a data file or some other form of data processing?
If you're using TS 6.x which uses Perl 5.8.2 - when opening a file for reading - use the following format:...
if (open(IN, '<:utf8', $infile)){
# read data from < ...
close(IN);
}
else {
# handle error
}
...Similarly, when writing data out to a file:...
if (open(OUT, '>:utf8', $ofile)){
# write data to OUT ...
close(OUT);
}
else {
# handle error
}
...Is that what you were looking for?

--fish
Senior Consultant, Quotient Inc.
http://www.quotient-inc.com