Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

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 (Priest) 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 (Priest) 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 the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (7)
As of 2016-06-29 22:50 GMT
Find Nodes?
    Voting Booth?
    My preferred method of making French fries (chips) is in a ...

    Results (388 votes). Check out past polls.