Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re^4: How do I pretend a reference isn't a reference

by clinton (Priest)
on Nov 06, 2008 at 11:32 UTC ( #721959=note: print w/ replies, xml ) Need Help??


in reply to Re^3: How do I pretend a reference isn't a reference
in thread How do I pretend a reference isn't a reference

If you change the map so:
my @months = map{tie my $var, i18n::String2, $_; $var } qw(Januar +y February);
That problem goes away also. (I made a similar error myself earlier:)

Actually, it doesn't :) What is stored in @months is not tie'd anonymous variables, but the result of FETCH'ing $var. In other words, it does the translation at compile time, rather than at runtime.

Clint


Comment on Re^4: How do I pretend a reference isn't a reference
Select or Download Code
Re^5: How do I pretend a reference isn't a reference
by BrowserUk (Pope) on Nov 06, 2008 at 11:42 UTC

    Well yes, but isn't your use/implementation of map in the example just a for testing?

    In your original example you had:

    my @days = ( _('Mon'),_('Tues'),_('Wed'),_('Thurs'),_('Fri'),_('Sat'),_('Sun') );

    So if your later example became

    my @days = map _( $_ ), qw[ Mon Tue Wed Thu Fri Sat Sun ];

    with all the choosing of packages and tieing hidden inside sub _{ ... }, then the translation will be done at runtime as required?


    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.
      Well, my original example was defining the array @days at compile time, because that's going to be more efficient than:
      sub day_of_week { my $self = shift; my @days = _('Mon'),_('Tues'),_('Wed'),_('Thurs'),_('Fri') +,_('Sat'),_('Sun'); return $days[ $self->{day_num} ]; }

      To give another example, I have about 3,000 lines of YAML config data, which gets loaded into a hash during initialisation. Some of that data will contain strings-to-be-translated, eg:

      status: a: _('Active') i: _('Inactive')

      During init, I check all the scalar values in the config hash and, if they match the _('...') form, then I bless them into i18n::String. Doing this with tie wouldn't be feasible.

      Clint

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://721959]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (15)
As of 2014-07-11 19:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (235 votes), past polls