Help for this page

Select Code to Download


  1. or download this
    $catreg = "^(<[A-Za-z0-9]+>)*<H1>(<[A-Za-z0-9]+>)*([A-Za-z0-9]+)";
  2. or download this
    $catreg = "^(<[A-Za-z0-9]+>)*<H1>(<[A-Za-z0-9]+>)*([A-Za-z0-9]+)";
  3. or download this
        if ( m!$catreg! ) {
    print "found(pre) $cat\n";
...
    print "cat == $cat\n";
    next;
    }