in reply to Re^2: Mini-Tutorial: Working with Odd/Even Elements
in thread Mini-Tutorial: Working with Odd/Even Elements
Too golfy or arcane? (fixed now)
Caution: Contents may have been coded under pressure.
I like being able to avoid sym refs and all the globbage. The interesting thing to note is that I seem to get a magical localization of my variables.sub map_pairs(&@) { my $fn = shift; my $pkg = $main::{caller().'::'}; map { @{$pkg}{qw(a b)} = \(@_[0,1]); $fn->(shift, shift); } (0..$#_/2); } package Smarter; our($a, $b) = qw(orig value); my @arr = qw(a b c d); print main::map_pairs {$_[0] = uc($a); print "[$a $_[1]]\n"; $a} @arr; print "\n"; print "Now @arr\n"; print "\n$a $b\n";
Caution: Contents may have been coded under pressure.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^4: Mini-Tutorial: Working with Odd/Even Elements
by ikegami (Patriarch) on Jul 10, 2009 at 20:14 UTC | |
by Roy Johnson (Monsignor) on Jul 10, 2009 at 23:40 UTC | |
by ikegami (Patriarch) on Jul 13, 2009 at 17:55 UTC | |
Re^4: Mini-Tutorial: Working with Odd/Even Elements
by LanX (Saint) on Jul 10, 2009 at 21:16 UTC | |
by Roy Johnson (Monsignor) on Jul 10, 2009 at 23:37 UTC | |
Re^4: Mini-Tutorial: Working with Odd/Even Elements
by ikegami (Patriarch) on Jul 16, 2009 at 18:32 UTC |
In Section
Meditations