p5pRT
commented
22 years ago From sherwin@saturn.emc.com.ph
Created by win@email.com.ph
It was written in perlfaq9 that
s/([^\w()'*~!.-])/sprintf '%%%02x'\, $1/eg; # encode
is how you create %-encodings on the web. This doesn't work because sprintf is expecting numeric value. I've included a patch below. :-)
[sherwin@saturn sherwin]$ perl illustratebug.pl Argument ":" isn't numeric in sprintf at testbug.pl line 5. Argument "/" isn't numeric in sprintf at testbug.pl line 5. Argument "/" isn't numeric in sprintf at testbug.pl line 5. Argument "/" isn't numeric in sprintf at testbug.pl line 5. Argument "/" isn't numeric in sprintf at testbug.pl line 5. Argument " " isn't numeric in sprintf at testbug.pl line 5. Argument "/" isn't numeric in sprintf at testbug.pl line 5. Argument "#" isn't numeric in sprintf at testbug.pl line 5. http%00%00%00foo.bar%00baz%00foo%00bar%00%0021028461
# --- BEGIN illustratebug.pl
#!/usr/bin/perl -w use strict; (my $s = 'http://foo.bar/baz/foo bar/#21028461') =~ s/([^\w()'*~!\.-])/sprintf '%%%02x'\, $1/eg; print "$s\n"; exit 0;
# --- END illustratebug.pl
# --- BEGIN perlfaq9.pod.patch
*** perl-5.6.1/pod/perlfaq9.pod.orig Sun Apr 8 14:09:16 2001 --- perl-5.6.1/pod/perlfaq9.pod Wed Apr 24 20:29:57 2002 *************** *** 219\,227 **** The best source of detailed information on URI encoding is RFC 2396. Basically\, the following substitutions do it:
! s/([^\w()'*~!.-])/sprintf '%%%02x'\, $1/eg; # encode
! s/%([A-Fa-f\d]{2})/chr hex $1/eg; # decode
However\, you should only apply them to individual URI components\, not the entire URI\, otherwise you'll lose information and generally mess --- 219\,227 ---- The best source of detailed information on URI encoding is RFC 2396. Basically\, the following substitutions do it:
! s/([^\w()'*~!.-])/sprintf '%%%02x'\, ord $1/eg; # encode
! s/%([A-Fa-f\d]{2})/chr hex $1/eg; # decode
However\, you should only apply them to individual URI components\, not the entire URI\, otherwise you'll lose information and generally mess
# --- END perlfaq9.pod.patch
Migrated from rt.perl.org#9009 (status was 'resolved')
Searchable as RT9009$