But maybe it would be better to do it like this, as each phrase set would be together and cleaner code:

    my $language = "de";
        # ar, bs, de, en, es, fr, it, nl, pl, pt, ru, sk, sv, tet, tr,
+ uk, zh
    
    my %windTranslation = (
        'en'    => "Wind:",
        'de'    => "Wind:",
        'es'    => "Viento:",
        'fr'    => "Vent:",
        'nl'    => "Wind:",
    );
    
    my %humidityTranslation = (
        'en'    => "Humidity:",
        'de'    => "Feuchtigkeit:",
        'es'    => "Humedad:",
        'fr'    => "Humidité:",
        'nl'    => "Vochtigheid:",
    );
    
    my $windPhrase        = $windTranslation{$language};
    my $humidityPhrase    = $humidityTranslation{$language};
[download]

Or is there maybe a better way, that I am not thinking of?

This is at least better than a huge bunch of if-then-else.

NetWallah++ is right, you better use a locale library.

my %translations=(
    en => {
        wind => 'wind',
        humidity => 'humidity'
        # ...
    },
    de => {
        wind => 'Wind',
        humidity => 'Feuchtigkeit',
        # ...
    },
    # ...
);

print $translations{$language}->{'wind'},':';
[download]

Alternatively, you can use the terms as first-level keys and the language as second-level key:

my %translations=(
    wind => {
        en => 'wind',
        de => 'Wind',
        # ...
    },
    humidity => {
        en => 'humidity',
        de => 'Feuchtigkeit',
        # ...
    },
    # ...
);

print $translations{'wind'}->{$language},':';
[download]

Alexander

Depending on how you're gonna use the data structure afterwards, you could have either a hash of languages, with sub-hashes of terms to be translated and their translations, or a hash of terms to be translated, with sub-hashes of languages with the translated terms.

But first, read Locale::Maketext::TPJ13.

and using modules such as Locale::Framework and

:) lets skip that one, last updated in 2004, nothing on cpan uses it

else you could use the given when feature depending on your perl version :

Update : I'm not sure whether this will work, can not recall the exact syntax and I dont have the right perl version on this machine to test itt

given ($language){
    when('fr'){
        $wind_translation='vent';
    }
    when('es'){
        $wind_translation='viento';
    }
}
[download]

Hm, although you sometimes have to do it (at least for simple cases with just a couple or so of alternatives), storing what is really reference data in conditionals within the code is usually rather poor practice and generally does not scale well.

If I have to store reference data within the code, I very much prefer to store it all in a self-contained data structure such as a hash, or a HoH, or whatever suits best the needs, at least if possible. Although in the case in point, we were really thinking of storing reference data in a separate file (of DB, or whatever) and loading it in the program on demand.

Another point is that the smartmatch operator and the given ... when conditional have been sort-of deprecated (well, marked "experimental feature") and will issue a warning as of 5.18, so there are really some caveats to using them.

Thank you for your responses.

I am probably going to go with the HOH route, as using Locale looks a bit daunting for me right now, though I understand the concept.

Again, many thanks!

John