Help for this page

Select Code to Download


  1. or download this
        no strict 'refs';
    foreach my $F (@$Fields) {*{$F} = \ $_t->{$F}->[$_r]};
  2. or download this
    use strict;
use warnings;
...
print "\nFinally, \$a is:\n";
Dump($a);
  3. or download this
    Before setting a value for $a:
SV = NULL(0x0) at 0x8ecfa60
...
  PV = 0x8ed8618 "Test"\0
  CUR = 4
  LEN = 8