Re^2: unknown character in between text

eeew :p

s/([^\000-\200])/'&#'.ord($1).';'/ge
s/([^\000-\200])/sprintf '&#x%X;', ord $1/ge
[download]

Comment on Re^2: unknown character in between text Download Code

Replies are listed 'Best First'.
Re^3: unknown character in between text by DanielSpaniel (Scribe) on Sep 17, 2011 at 13:05 UTC
:-) That looks tidier! Haven't tested it, but I get the gist ... I knew someone would be able to condense into a handful of bytes! But why 200 in the character class? I'm sure there must be a good reason, but I think I am more familiar with just seeing \000-\177	[reply]
Re^4: unknown character in between text by Anonymous Monk on Sep 17, 2011 at 13:54 UTC
Because octal is octal :) `$ perl -le " printf qq{%3s %3o\n}, $_, $_ for @ARGV " 0 1 8 16 32 64 1 +28 0 0 1 1 8 10 16 20 32 40 64 100 128 200` [download] octal: perlrebackslash, oct, sprintf, perldata	[reply] [d/l]
Re^5: unknown character in between text by Anonymous Monk on Sep 17, 2011 at 13:56 UTC
D'oh! 127 is 177 octal, totally misread it, typical off-by-one error	[reply]
Re^6: unknown character in between text by DanielSpaniel (Scribe) on Sep 17, 2011 at 14:20 UTC