tobyink
commented
3 years ago From perl@toby.ink on 2013-01-24 15:21:00 :
On 2013-01-24T07:56:05Z, DAXIM wrote:
Instead of hardcoding your own "no/cancel" strings which only work for English, use the I18N::Langinfo core module.
I agree in principle, but have some concerns.
However, if the question is framed in English, it might be surprising to be expected to answer in another language, even if that language is your preferred language.
In something like German, that might not be a problem; answers beginning with "J" or "Y" can be interpreted as affirmative answers, and "N" as negative.
But with Polish, the word "no" is actually an answer in the affirmative!!
Something certainly needs to be done to improve Ask's i18n, but I'm not sure this is the solution.
It is actually possible in current versions, but not documented to pass options to "question" to match answers:
my $response = question( text => "Haben sie ein Schloss?", ok => qr{^Ja\b}i, cancel => qr{^(Nein\b|Kein\sSchloss)}i, );
The "ok"/"cancel" options can be regular expressions, arrayrefs, coderefs, or anything else that can appear on the right hand side of a smart match.
Migrated from rt.cpan.org #82925 (status was 'open')
Requestors:
Attachments:
From daxim@cpan.org on 2013-01-24 07:56:05 :
Instead of hardcoding your own "no/cancel" strings which only work for English, use the I18N::Langinfo core module.
$ for l in de_AT.UTF-8 he_IL.UTF-8 ja_JP.UTF-8 ru_RU.UTF-8 zhTW.UTF-8 ; do LANG=$l perl -MI18N::Langinfo=langinfo,YESEXPR,NOEXPR - MData::Dumper -E'say Dumper [map { langinfo $ } YESEXPR, NOEXPR]' ; done $VAR1 = [ '^[jJyY].', '^[nN].' ];
$VAR1 = [ '^[Yy×].', '^[Nn×].' ];
$VAR1 = [ '^([yYï½ï¼¹]|ã¯ã|ãã¤)', '^([nNï½ï¼®]|ããã|ã¤ã¤ã¨)' ];
$VAR1 = [ '^[ÐдYy].', '^[ÐнNn].' ];
$VAR1 = [ '^[yYæ¯]', '^[nNä¸å¦]' ];