Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl
use warnings;
...
    printf "%8s: %s (%s)  FNR:  %s (%s)\n",
        $label, $$nameRef, $nameRef, $$ccRef, $ccRef;
}
  2. or download this
    Original: AB (SCALAR(0x94a554))  FNR:  AB (SCALAR(0x94a554))
    Loop: XY (SCALAR(0x94a554))  FNR:  XY (SCALAR(0x94a554))
  Button: XY (SCALAR(0x94a554))  FNR:  PQ (SCALAR(0x94a584))