From your statement of the problem, it sounds like all the codes are unique. That allows you to use a translation hash. Lets set one up starting with an Array-of-Arrays that is built directly from your data.
my @code_data = [
['US','USA','USD'],
# ...
];
my %translator = map { $_->[0] => $_,
$_->[1] => $_,
$_->[2] => $_
} @code_data;
use constant ccode => 0;
use conatant country => 1;
use constant currency => 2;
print $translator{USA}[currency];
print $translator{USD)[ccode];
You have a problem with the design which will make this construction fail as it is. What country is supposed to come back when you say
$translator{EURO}[country]? Your question does not hold up on meeting real data.
The currency elements need to hash to an array. You may have other data with similar properties. It doesn't have to be painful, but it's not as simple as above:
# construct %translator as before, but only for unique keys
for (@code_data) {
push @{$translator{$_->[currency]}}, $_;
}
That makes your lookups a little more complicated, but that is dictated by the problem domain.
After Compline,
Zaxo
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.