corfuitl has asked for the wisdom of the Perl Monks concerning the following question:
Hi,
I have a perl code that recognises the name of the days and translates them into an other language.
My code looks like:
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.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" ; } }
Back to
Seekers of Perl Wisdom