Help for this page

Select Code to Download


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

...
$test =~ s/(?:(?:$reg|\n|[^\[\]])+?)(^(?:ELSIF|ELSE\s*\n).*\]|\])/\[$1
+/sm;
return $test;
}
  2. or download this
    $ ./t.pl
trying iffer... test:  a = /1/1
...
3
]
$
  3. or download this
    #!/usr/bin/perl

...
$test =~ s/(?:(?:$reg|\n|[^\[\]])+?)(^(?:ELSIF|ELSE\s*\n).*\]|\])/\[$1
+/sm;
return $test;
}
  4. or download this
    $ ./t.pl
trying iffer... test:  a = /1/1
...
trying iffer... test: 3
]
$