Re^2: Help with a regular expression for file name parsing

in reply to Re: Help with a regular expression for file name parsing
in thread Help with a regular expression for file name parsing

Your regular expression works, but the code is rather a muddle. Here's a version that he can use to test with:

$data = join '', <DATA>;

print "$_\n" for $data =~ m[\@include\s('[^']+'|"[^"]+"|.+?(?<!\\))\s]
+g;

__DATA__
#some "random stuff" @include "some file" did you parse that?
#more 'random' stuff @include 'another file' you sure?
#and more random stuff @include yet\ another\ file positive?
[download]

Comment on Re^2: Help with a regular expression for file name parsing Download Code

Replies are listed 'Best First'.
Re^3: Help with a regular expression for file name parsing by bontchev (Sexton) on Dec 07, 2011 at 12:07 UTC
When tested with this version, the output is just `1`	[reply] [d/l]
Re^4: Help with a regular expression for file name parsing by TJPride (Pilgrim) on Dec 07, 2011 at 13:23 UTC
Are you sure you copied it correctly? I get this: `"some file" 'another file' yet\ another\ file` [download]	[reply] [d/l]

In Section Seekers of Perl Wisdom