urlencode command line

[Merkzettel]

#!/usr/bin/perl -T
#http://glennf.com/writing/hexadecimal.url.encoding.html
use strict;
use warnings;
use diagnostics;

undef $/;
$_ = <>;
s/([\W])/"%".uc(sprintf("%2.2x", ord($1)))/eg;
print;

[Cheatah]

Hi,

#!/usr/bin/perl -T

[...]

vielen Dank für dieses Negativbeispiel. Wie man es richtig macht, erfährt der geneigte Leser auf folgenden Dokumentationsseiten:

perldoc perlrun (-w)
perldoc strict
perldoc URI::Escape

Cheatah