From: "James Briggs" <[EMAIL PROTECTED]>
> print qL(The weather is $skycover today.);
>
I guess qL would be the equivalent of
# 1) some sort of lookup that returns the translated string
# with the $skycover not yet expanded
# trivial example of a lookup:
$localized = $localization_hash{'The weather is $skycover today.'};
# 2) variable expansion
# (three cheers for the faq writers!)
$localized =~ s/(\$\w+)/$1/eeg;
I would like an operator for in-place variable expansion! The translation
lookup part is relatively trivial. And there are a zillion ways to do it
already.
Here's a brief example (German from Babelfish!):
#! perl -w
$the_weather = 'The weather is $skycover today.';
$skycover = "sunny";
%localization_hash = ( 'The weather is $skycover today.'
=> 'Das Wetter ist heute $skycover.',
'sunny' => 'sonnig' );
$the_weather = $localization_hash{$the_weather};
$skycover = $localization_hash{$skycover};
$the_weather =~ s/(\$\w+)/$1/eeg;
print "$the_weather\n";
#output: "Das Wetter ist heute sonnig."
The package name could be concatenated with the English string to improve
context:
$the_weather = __PACKAGE__ . 'The weather is $skycover today.';
=Ed
