http://www.perlmonks.org?node_id=952698


in reply to Re^3: RFC: Tutorial: use strict; now what!?
in thread RFC: Tutorial: use strict; now what!?

It's not so hard:
package P; while (<>) { my ($k, $v) = split; $$k = $v; } for my $k (keys(%P::)) { ... $$k ... }

Replies are listed 'Best First'.
Re^5: RFC: Tutorial: use strict; now what!?
by moritz (Cardinal) on Feb 09, 2012 at 12:51 UTC

    ... and the maintenance programmer who adds one or two features later will think you for occasionally, silently overwriting a few of his our-variables.

      In package P? I would never write real code this way, but ikegami's post was deliberately, absurdly clueless.
Re^5: RFC: Tutorial: use strict; now what!?
by ikegami (Patriarch) on Feb 09, 2012 at 22:25 UTC

    It's not so hard

    Really? I don't see how the code you posted shows that the code I posted suffers from the same problems that strict refs is suppose to fix. Am I missing something?

    In fact, your code actually reinforces my point. our $x = 123; affects your code but not mine, so hashes are NOT just as bad as symbolic refs.