http://qs321.pair.com?node_id=721959


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);

[download]
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

Replies are listed 'Best First'.
Re^5: How do I pretend a reference isn't a reference
by BrowserUk (Patriarch) 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') 
);

    [download]

    So if your later example became 

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

    [download]

    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.
[reply]
[d/l]
[select]
      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} ];
       }

      [download]

      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')

      [download]

      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

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom