in reply to Cleaning the Log

Here's to Golf!

perl -pe's/\{BS\}/\b/g;1while s/.?\010//' file

— Arien

Edit: Good catch, BrowserUk++. I forgot about that one, but I now remember I don't need the first zero. To tie: ;-)

perl -pe's/\{BS\}/\b/g;1while s/.?\10//' file

Replies are listed 'Best First'.
Re: Re: Cleaning the Log
by BrowserUk (Patriarch) on Sep 02, 2002 at 22:31 UTC

    Revenge! -1 :8D 

    perl -pe's/\{BS\}/\b/g;1while s/.?\cH//' file

    [download]

    Update:In that case, we might as well do away with that redundant '?'. If there isn't a char before it, then there is nothing to backspace over!

    Revenge again! :) -1 more.

    In private discussion, Arien pointed out that whilst the cusor may not move back past the left hand edge of the screen if you keep pounding the backspace key, it is unlikely that the keystroke logger would have the smarts to realise that, and so would likely keep recording the useless keystrokes.

    I therefore willingly accept his offer of a draw. (Drat! and double-drat! Thought I had'im that time!)

    perl -pe's/\{BS\}/\b/g;1while s/.\cH//' file

    Well It's better than the Abottoire, but Yorkshire!
[reply]
[d/l]

      I messed up pretty bad before, but nobody took advantage... -11!

      perl -pe'1while s/.?\{BS\}//' file

      — Arien

[reply]
[d/l]
        You can get rid of one more. perl -pe's/.?\{BS\}//&&redo' file Update: actually, you one needn't escape the curlies. Another two more. perl -pe's/.?{BS}//&&redo' file

        Makeshifts last the longest.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom