Re^2: Mini-Tutorial: Working with Odd/Even Elements

Replies are listed 'Best First'.
Re^3: Mini-Tutorial: Working with Odd/Even Elements by Roy Johnson (Monsignor) on Jul 10, 2009 at 19:52 UTC
Too golfy or arcane? (fixed now) `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";` [download] 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. Caution: Contents may have been coded under pressure.	[reply] [d/l]
Re^4: Mini-Tutorial: Working with Odd/Even Elements by ikegami (Patriarch) on Jul 10, 2009 at 20:14 UTC
Too golfy or arcane? All of these `map_pairs` implementations are in the red zone of the arcanometer. The interesting thing to note is that I seem to get a magical localization of my variables. Array elements aren't lexical variables, if that's what you're talking about. As for using `local` on array elements, perlsub says Some types of lvalues can be localized as well : hash and array elements and slices, conditionals (provided that their result is always localizable), and symbolic references. As for simple variables, this creates new, dynamically scoped values. That means `my @a; local $a[0]; # Not a problem my %a; local $a{k}; # Not a problem` [download]	[reply] [d/l] [select]
Re^5: Mini-Tutorial: Working with Odd/Even Elements by Roy Johnson (Monsignor) on Jul 10, 2009 at 23:40 UTC
Array elements aren't lexical variables, if that's what you're talking about. No, I was saying that my "orig value" came back without my making them local (see the other reply to my node), but apparently that's not a reliable feature. I was using ActivePerl, for the record. Caution: Contents may have been coded under pressure.	[reply]
Re^6: Mini-Tutorial: Working with Odd/Even Elements 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
The interesting thing to note is that I seem to get a magical localization of my variables. that's the output I get `[A b] [C d] AC Now A b C d C d` [download] "orig" and "value" are lost, so no "magical localization". but adding `local` `local @{$pkg}{qw(a b)} = \(@_[0,1]);` produces `[A b] [C d] AC Now A b C d orig value` [download] Cheers Rolf UPDATE:This was perl, v5.10.0 built for i486-linux-gnu-thread-multi	[reply] [d/l] [select]
Re^5: Mini-Tutorial: Working with Odd/Even Elements by Roy Johnson (Monsignor) on Jul 10, 2009 at 23:37 UTC
That's what I would have expected. Thanks for the data point. I was wondering whether there was some obscure documented reason it should behave as I was seeing. Caution: Contents may have been coded under pressure.	[reply]
Re^4: Mini-Tutorial: Working with Odd/Even Elements by ikegami (Patriarch) on Jul 16, 2009 at 18:32 UTC
By the way, your fixed is still broken. It only works if the calling package is one level away from the root. If the caller is Foo, it works. If the caller is Foo::Bar, it doesn't. Using a symbolic ref is simpler than using `%::`. `my $pkg = do { no strict 'refs'; *{caller().'::'} };` [download]	[reply] [d/l] [select]
Re^3: Mini-Tutorial: Working with Odd/Even Elements by duelafn (Parson) on Jul 10, 2009 at 11:15 UTC
Actually, I like passing the arguments so that I can do things like this: (sum doesn't know to look at $a and $b) `use List::Util qw/sum/; say for map_pairs \&sum, 1..10;` [download] I do like the aliasing bonus, but it seems to not work on hash keys: `use YAML; my @array = ( foo_name => " Bob Smiley ", foo_age => " 32" ); map_pairs { $a =~ s/foo_//; s/^\s+//, s/\s+$// for $b; } @array; print Dump \@array; my %hash = ( foo_name => " Bob Smiley ", foo_age => " 32" ); map_pairs { $a =~ s/foo_//; s/^\s+//, s/\s+$// for $b; } %hash; print Dump \%hash;` [download] outputs `--- - name - Bob Smiley - age - 32 --- foo_age: 32 foo_name: Bob Smiley` [download] Good Day, Dean	[reply] [d/l] [select]
Re^4: Mini-Tutorial: Working with Odd/Even Elements by ikegami (Patriarch) on Jul 10, 2009 at 14:13 UTC
It's not a problem with `map_pairs`. You'll notice the same with `map` and `for`. Hash keys aren't Perl variables (aren't an `SV`), so `%hash` can't possibly return an alias to them. It returns a copy. It could return something magical that would result in the keys being "changed", but it doesn't. One could make a `tie` implementation if one needed such a feature.	[reply] [d/l] [select]


Problems? Is your data what you think it is?
	PerlMonks