Help for this page

Select Code to Download


  1. or download this
      DB<132> sub cycle { $_[1]++; $_[1] %= $_[0] }

...

  DB<135> cycle 3 => $h{a}{b}[2]{c};   \%h
 => { a => { b => [undef, undef, { c => 0 }] } }
  2. or download this
    $h{a}{b}[2]{c}->cycle(3)
  3. or download this
      DB<160> $cycle = sub { $_[0]++; $_[0] %= $_[1] }
 => sub { "???" }
...

  DB<163> $h{a}{b}[2]{c}->$cycle(3);   \%h
 => { a => { b => [undef, undef, { c => 0 }] } }