Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

Re: better way to escape escapes

by andal (Hermit)
on Apr 16, 2014 at 09:23 UTC ( #1082469=note: print w/replies, xml ) Need Help??

in reply to better way to escape escapes

Do you have to use regexp? In the past, I've solved this issue by splitting string on "escapes", and then walking all parts merging 2 subsequent "escapes" into character and placing them back into text.

Something like this

my @parts = split /([\\@])/, $input; my $txt = shift @parts; while(@parts > 1) { shift @parts; my $t = shift @parts; if($t eq '') { # get the escaped "escape" $txt .= shift @parts; # get the text that follows it $txt .= shift @parts; next; } $t =~ s/^(\w+)//; my $cmd = $1; $txt .= "::$cmd\::$t"; } $txt .= shift @parts if @parts;

Replies are listed 'Best First'.
Re^2: better way to escape escapes
by RonW (Vicar) on Apr 16, 2014 at 14:50 UTC
    Divide and Conquer looks a lot simpler. Also looks promising.


    FYI, examples of the data interpretations:

    abc@def@@ghi => abcXef@ghi
    abc@def\@ghi => abcXef@ghi
    abc\def\\ghi => abcXef\ghi
    abc\def@\ghi => abcXef\ghi

    where d represents any directive and X represents the result.
Re^2: better way to escape escapes
by RonW (Vicar) on Apr 16, 2014 at 16:06 UTC
    Thanks. Much better.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1082469]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (2)
As of 2017-09-21 01:39 GMT
Find Nodes?
    Voting Booth?
    During the recent solar eclipse, I:

    Results (241 votes). Check out past polls.