Re: Splitting on escapable delimiter

Well, here is my try (which does not work!). It is possible to use reverse and then lookahead assertions:

use strict;
use warnings;
# use re 'debug';

my $s = '#@##@###@####@#####@';

my @list = reverse split '@(?=(##)*[^#])', reverse $s;
print scalar reverse $_, "\n" for @list;
[download]

I see the regexp only matches at the good @ signs, but I am getting a couple of ## in the output that I can't explain. I have tried with use re 'debug' and so I know the regexp is matching where I intended.

Output:

#@##
##
###@####
##
#####@
[download]

Julio

Comment on Re: Splitting on escapable delimiter Select or Download Code

Replies are listed 'Best First'.
Re^2: Splitting on escapable delimiter by BrowserUk (Patriarch) on Mar 28, 2008 at 18:05 UTC
Switch your capturing parens for non-capturing ones: `'@(?=(?:##)*[^#])' #.....^^` [download] 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. "Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."	[reply] [d/l]
Re^2: Splitting on escapable delimiter by Anonymous Monk on Mar 28, 2008 at 20:05 UTC
I suspect this version will fail on `"####@####"`, because your regex looks for a character that isn’t a `'#'`, erroneously failing at end of string.	[reply] [d/l] [select]