Re: matching a line with ' and "


P is for Practical
	PerlMonks

Re: matching a line with ' and "

by gaal (Parson)

Log in
Create a new user
The Monastery Gates
Seekers of Perl Wisdom
Meditations
Cool Uses For Perl
Obfuscation
Q&A
Tutorials
Poetry
Reviews
Perl News
Donate
Recent Threads
Newest Nodes
Super Search
PerlMonks Discussion
What's New

on Jul 18, 2008 at 05:48 UTC ( #698514=note: print w/replies, xml )

Need Help??

in reply to matching a line with ' and "

Have you tried Text::Balanced? Or, if quotes can't be escaped, something like (untested):

while (my ($var) = $line =~ s/^(\s*['"]+=//) {  # eat single var
  # eat a single quoted value and its trailing whitespace.
  $line =~ s/^'([^']+)'\s*// || $line =~ s/^"([^"]+)"\s*// ||
    die "invalid";  # or return, whatever you need
}
# if we haven't consumed all our input, this line is invalid.
die "invalid" if length $line;
[download]