Help for this page

Select Code to Download


  1. or download this
    RULE=test
    BEGIN
    ...
    Y
    Z
    STMT2=END
    
  2. or download this
    open (RULE, "$rulefile") || die "Can't open $rulefile for reading $!\n
    +";
    while ( defined ($_ = <RULE>) ) {
        if (/RULE=$rule/../^END$/) {
    ...
    B
    C
    ...