Help for this page

Select Code to Download


  1. or download this
    pl@nereida:~/Lperltesting$ cat -n ./offsetsin5_10_end.pl
     1  #!/usr/local/lib/perl/5.10.1/bin//perl5.10.1
...
    30    say "matches: ($&)";
    31    say "At the very end:\n\@- = (@-)\t ".scalar(@-)." items\n\@
++ = (@+)\t ".scalar(@+)." items\n";
    32  }
  2. or download this
    pl@nereida:~/Lperltesting$ ./offsetsin5_10_end.pl
abab
...
@- = (0, 0, 2)   3 items
@+ = (4, 2, 4, , , )     6 items