Re: Help with a regular expression for file name parsing

This works with the samples supplied:

print $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?

print for $data =~ m[\@include\s('[^']+'|"[^"]+"|.+?(?<!\\))\s]g;;
"some file"
'another file'
yet\ another\ file
[download]

Spreading that out a bit:

m[
  \@include \s       ## the introducer followed by a space
  (                  ## capture
      '[^']+'        ## A single quoted string with no embedded single
+ quotes
  |                  ## or
      "[^"]+"        ## a double quoted string with no embedded double
+ quotes
  |                  ## or
      .+? (?<!\\)    ## a min length string that ends in a space that 
+isn't escaped
  )
  \s
]gx;;
[download]

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

The start of some sanity?

Comment on Re: Help with a regular expression for file name parsing Select or Download Code

Replies are listed 'Best First'.
Re^2: Help with a regular expression for file name parsing by TJPride (Pilgrim) on Dec 07, 2011 at 11:30 UTC
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]	[reply] [d/l]
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]
A reply falls below the community's threshold of quality. You may see it by logging in.


Your skill will accomplish what the force of many cannot
	PerlMonks