Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

"abcde" =~ /(..)(?:(....)|(..))/;
...
# $3 is 'cd'

print length($2);
  2. or download this
    #!/usr/bin/perl -w

print length($foo);
  3. or download this
    /* n is the number in $N */

if (
...
  (e = rx->endp[n])   != -1
) return e - s;
return 0;