1 2 3 4 5 6 7 8
#!/usr/bin/perl use 5.010; use strict; use warnings; my $string = '?~#'; $string =~ s/([^^A-Za-z0-9\-_.!~*'()])/ sprintf "%%%0x", ord $1 /eg; say $string;
Quote%3f~%23
2014-08-17T15:44:17 biancaDa die Tilde mit im Regex steht, wieso kommt nicht %3f%7e%23 raus?