Help for this page
#!/usr/bin/env perl ... __DATA__ set zone "VLAN" vrouter "trust-vr" set zone id 100 "Internet_Only"
$ pm_pref_quote_regex.pl Config line=> 1; Value=> set zone "VLAN" vrouter "trust-vr"; zon +e=> VLAN Config line=> 2; Value=> set zone id 100 "Internet_Only"; zone=> + Internet_Only
__DATA__ set zone "VLAN" vrouter "trust-vr" ... blah blah blah set zone "extra" whatever blah blah blah "set zone id 12345 "extra2_a" something "extra2_b"
$ pm_pref_quote_regex.pl Config line=> 1; Value=> set zone "VLAN" vrouter "trust-vr"; zon +e=> VLAN Config line=> 2; Value=> set zone id 100 "Internet_Only"; zone=> + Internet_Only Config line=> 4; Value=> blah blah set zone "extra" whatever; zo +ne=> extra Config line=> 5; Value=> blah blah blah "set zone id 12345 "extra2_ +a" something "extra2_b"; zone=> extra2_a
$ perl -MYAPE::Regex::Explain -e ' my $re = q{^set\szone\s("([^"]*)"|id\s\d+\s"([^"]*)")}; ... ---------------------------------------------------------------------- ) end of grouping ----------------------------------------------------------------------
www.com | www.net | www.org
No recent polls found