Re: Problem with alternating regex?

[jwkrahn]

in reply to Problem with alternating regex?

$ perl -le'
for my $line ( q/set zone "VLAN" vrouter "trust-vr"/, q/set zone id 10
+0 "Internet_Only"/ ) {
    if ( $line =~ /^set\szone\s(?:"([^"]*)"|id\s\d+\s"([^"]*)")/ ) {
        my $zone = $^N;
        print $zone;
        }
    }
'
VLAN
Internet_Only

Or:

$ perl -le'
for my $line ( q/set zone "VLAN" vrouter "trust-vr"/, q/set zone id 10
+0 "Internet_Only"/ ) {
    if ( $line =~ /^set\szone\s(?:id\s\d+\s|)"([^"]*)"/ ) {
        my $zone = $1;
        print $zone;
        }
    }
'
VLAN
Internet_Only