in reply to what is the translation?

echo "0x0ddb00b5" | /usr/bin/perl -e 'print("\""); while(<STDIN>){chop +;tr/!-~/P-~!-O/;print $_;} print("\"\n"); exit 0;'

That could be written more simply as:

echo "0x0ddb00b5" | /usr/bin/perl -lne'tr/!-~/P-~!-O/; print qq/"$_"/'

Replies are listed 'Best First'.
Re^2: what is the translation?
by roadtest (Sexton) on Jul 20, 2011 at 13:22 UTC
    Thanks:-)