Re: [FWP] Oy! Bad Perl

[Tim Ayers <tayers@bridge.com>]

>>>>> "J" == Jeff Boes <jboes@qtm.net> writes:
J> if ($total_ads == 1) {
J>   print qq~
J> There is currently <b><font color="#ff0000">$total_ads</font></b>
J> $record_singular_lc in this section.<p>~;
J> }
J> else {
J>   print qq~
J> There are currently <b><font color="#ff0000">$total_ads</font></b>
J> $record_plural_lc in this section.<p>~;
J> }

J> (I should point out that the $record_(singular|plural)_lc variables support
J> multiple language functionality.)

So if my locale is 'USA' I get "There are 7 advertisements" but in
Germany I get "There are 7 Kleinanzeigen"? ;-)

BTW, I'll second the recommendation of Lingua::EN::Inflect. I've used
it several times very successfully. The only caveat is that it's a
marvelously complete module without a shred of documentation so be
prepared to wander around the code and play around in the debugger
some. :-p

Hope you have a very nice day, :-)
Tim Ayers (tayers@bridge.com)


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe