Employing Basic debugging checklist/brian's Guide to Solving Any Perl Problem

I see 

#!/usr/bin/perl --
use strict; use warnings;
use Data::Dump;
my $stuff = q{set zone "VLAN" vrouter "trust-vr"
set zone id 100 "Internet_Only"};
open my($in), '<', \$stuff;
while(my $line = <$in>){
    chomp $line;
    if ($line =~ /^set\szone\s("([^"]*)"|id\s\d+\s"([^"]*)")/) {
        my $zone = $1;
#~         print "Config line=> $lineCount;    Value=> $line;    zone=
+> $zone\n";
#~         print "Config line=> $.;    Value=> $line;    zone=> $zone\
+n";
        dd [ $., $line, { 1, $1, 2, $2 } ];
    }
}
__END__
[
  1,
  "set zone \"VLAN\" vrouter \"trust-vr\"",
  { 1 => "\"VLAN\"", 2 => "VLAN" },
]
[
  2,
  "set zone id 100 \"Internet_Only\"",
  { 1 => "id 100 \"Internet_Only\"", 2 => undef },
]

[download]

So that shows some problem, sometimes you want $1, sometimes $2, but then sometimes stuff is missing ... but if you replace that if block with 

    use Text::Balanced qw/ :ALL /;
    my @parts = extract_multiple(
        $line,
        [
            sub {
                extract_delimited(
                    $_[0],
                    '"',
                );
            },
        ],
    );
    dd\@parts;

[download]

you get 

["set zone ", "\"VLAN\"", " vrouter ", "\"trust-vr\""]
["set zone id 100 ", "\"Internet_Only\""]

[download]

You could do the same with 

    my @parts = split /("[^"]*")/, $line;
    dd\@parts;

[download]

Or a more complete pattern from http://search.cpan.org/perldoc/Text::Balanced#gen_delimited_pat 

my @parts = split /((?:\"(?:\\\"|(?!\").)*\"|\'(?:\\\'|(?!\').)*\'))/,
+ $line;
dd\@parts;

[download]

In reply to Re: Problem with alternating regex? by Anonymous Monk
in thread Problem with alternating regex? by dwlepage

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.