Re: self referential arrays/hashes ?

[Dr.Ruud]

On 2011-08-18 16:51, Zak wrote:

can you reference elements of an array/hash from within that array/
hash for example would

@array=(A, B, C, D, $array[0], E, F)

fly?

See Data::Alias and Array::RefElem.

perl -Mstrict -MData::Dumper -MData::Alias -wle '

  my @data = qw(A B C D A E F A B B A);

  for my $i ( 0 .. $#data ) {
    for my $j ( $i + 1 .. $#data ) {
      next if $data[$j] ne $data[$i];
      alias $data[$j] = $data[$i];
    }
  }

  $data[0] = "X";
  print "@data";

  print Dumper( \@data );
'

X B C D X E F X B B X

$VAR1 = [
          'X',
          'B',
          'C',
          'D',
          ${\$VAR1->[0]},
          'E',
          'F',
          ${\$VAR1->[0]},
          ${\$VAR1->[1]},
          ${\$VAR1->[1]},
          ${\$VAR1->[0]}
        ];

--
Ruud

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/