Translate name of days in perl

Hi,

I have a perl code that recognises the name of the days and translates them into an other language.

My code looks like:

Code:

next unless /(Sunday|Monday|Tuesday|Wednesday|Thursday|Friday|Saturday)/g;

#there is one file for evert language containing the translations

open (SRC, "<db-dates/$src") or die "can't open file '$src' $!";

my @src = <SRC>;

chomp(@src);

for my $i (0 .. $#src){

$dayname =~ s/@src[$i]/@tgt[$i]/g

}

given($tgt){

when("fr_fr") { print �$day" ; }

when("it_it") { print �$day" ; }

default { print �$day" ; }

}

This script, recognises the days and translate them correctly, but I am not able to print the rest of the phrase. For instance, if the sentence is

Today is Monday

I want to print

Today is lundi for french or Today is lunedi for italian. At the moment is translates only lundi or lunedi.

Thank you in advance for your time.

Continue reading...