Help for this page

Select Code to Download


  1. or download this
    use v5.10;

...
  say "At the very end:\n\@- = (@-)\t ".scalar(@-)." items\n\@+ = (@+)
+\t ".scalar(@+)." items\n";
}
__END__
  2. or download this
    Compiling REx "%n    (?{%n         say %"before:\n\@- = (@-)\t\t %".sc
+alar("...
synthetic stclass "ANYOF[\0-\11\13-\377][{unicode_all}]".
...
  43:   TAIL (44)
  44: END (0)
floating ""$ at 2..2147483647 (checking floating) stclass ANYOF[\0-\11
+\13-\377][{unicode_all}] minlen 2 with eval
  3. or download this
    before:
@- = (0)         1 items
...
At the very end:
@- = (0, 0, 2)     3 items
@+ = (4, 2, 4, , , )     6 items