%$ref = %c;
[download]

use vars '%c';  # if strict is on, which it IS, RIGHT?
*c = $ref;
[download]

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

# Abuse the symbol table.  This does not work under strict.
sub a1 {
  local *c = shift;
  $c{a} = 'a';
}

# Copy the hash by force.  Very inefficient.
sub a2 {
  my $ref = shift;
  my %c = %$ref;
  $c{a} = 'a';
  %$ref = %c;
}
[download]

# "Arrow" notation.
sub a3 {
  my $ref = shift;
  $ref->{a} = 'a';
}

# Or compactly
sub a4 {
  (shift)->{a} = 'a';
}
[download]

sub a1 {
  local *c = shift;
  $c{a} = 'a';
}
[download]

Is almost what I want, but it will not work under strict, as you point out.
I have however come up with two sollutions based on the same idea...
1


sub f {
  use vars qw(%d);
  local *d = shift;
  $d{f}='f';
}
[download]

However this will declare %d globally, which is not what I want. so:
2


sub f {
  our %d;
  local *d = shift;
  $d{f}='f';
}
[download]

But since I dont know how our works, I dont know how this works... Can someone explain?

Our is a Perl 5.6 feature that gives lexically scoped access to a global variable. I dislike it for a number of reasons that are neither here nor there, but it should work from Perl 5.6.0 onwards.

However for several reasons, not the least of which is that some day someone else will have to figure out your code and you will need to understand yet another person's, I strongly recommend getting used to the arrow syntax for dereferencing rather than playing games with the symbol table.

sub a {
  ${$_[0]}{a} = 'a';
}
[download]

cLive ;-)