Re^2: HTTP::Request::Common - Unescape some characters

Hi,
Ok let me give you an example for the string:
The original string is:

http://api.url?data=<?xml
version="1.0" encoding="ISO-8859-1"?><!DOCTYPE MESSAGE SYSTEM "http://
+127.0.0.1/psms/dtd/message.dtd" ><MESSAGE><USER USERNAME="test" PASSW
+ORD="XXXXXX"/><SMS UDH="0" CODING="1" TEXT="The flight # <101> "DEL" 
+to "BLR" is delayed and it's revised time will be informed later. Hav
+e a nice day!" PROPERTY="0" ID="1"><ADDRESS FROM="ValueFirst" TO="91X
+XXXXXXXXX" SEQ="1" TAG="some clientside random data" /></SMS></MESSAG
+E>&action=send
[download]

The escaped string is:

http://api.url/psms/servlet/psms.Eservice2?data=%3C?xml%20version=%221
+.0%22%20encoding=%22ISO-8859-1%22?%3E%3C!DOCTYPE%20MESSAGE%20SYSTEM%2
+0%22http://127.0.0.1/psms/dtd/message.dtd%22%20%3E%3CMESSAGE%3E%3CUSE
+R%20USERNAME=%22test%22%20PASSWORD=%22valueone%22/%3E%3CSMS%20%20UDH=
+%220%22%20CODING=%221%22%20TEXT=%22The%20flight%20No.%20SG101:%20DEL%
+20to%20BLR%20is%20delayed%20and%20it's%20revised%20time%20will%20be%2
+0informed%20later.%20Have%20a%20nice%20day!%22%20PROPERTY=%220%22%20I
+D=%221%22%3E%3CADDRESS%20FROM=%22ValueFirst%22%20TO=%22919891153528%2
+2%20SEQ=%221%22%20TAG=%22some%20clientside%20random%20data%22%20/%3E%
+3C/SMS%3E%3C/MESSAGE%3E&action=send
[download]

Pl. let me know how to generate the escaped string:
Please help me as this is getting crucial for me
Thanks
abhi

Comment on Re^2: HTTP::Request::Common - Unescape some characters Select or Download Code

Replies are listed 'Best First'.
Re^3: HTTP::Request::Common - Unescape some characters by ikegami (Patriarch) on Jun 27, 2009 at 17:23 UTC
That's very long for a URL. Most serves have a limit on the length of the URLs they can handle. Also, your XML is invalid. You have unescaped double quotes in a double quoted attributes value, and "`<`" is not allowed to appear in attribute values. You need to use "`"`" and "`<`". Parsers might excuse the latter, but the former will definitely result in an error. `TEXT="The flight # <101> "DEL" to "BLR" is ..."` [download] should be `TEXT="The flight # <101> "DEL" to "BLR" is ..."` [download] But to answer your question, you can use URI to build a URL (a kind of URI). use URI qw( ); chomp( my $data = <<'__EOI__' ); <?xml version="1.0" encoding="ISO-8859-1"?><!DOCTYPE MESSAGE SYSTEM "h +ttp://127.0.0.1/psms/dtd/message.dtd" ><MESSAGE><USER USERNAME="test" + PASSWORD="XXXXXX"/><SMS UDH="0" CODING="1" TEXT="The flight # <101> +"DEL" to "BLR" is delayed and it's revised time will be informed late +r. Have a nice day!" PROPERTY="0" ID="1"><ADDRESS FROM="ValueFirst" T +O="91XXXXXXXXXX" SEQ="1" TAG="some clientside random data" /></SMS></ +MESSAGE> __EOI__ my $url = URI->new('http://api.url/psms/servlet/psms.Eservice2'); $url->query_form( data => $data, action => 'send', ); print "$url\n"; [download]	[reply] [d/l] [select]
Re^3: HTTP::Request::Common - Unescape some characters by Anonymous Monk on Jun 27, 2009 at 10:56 UTC
`#!/usr/bin/perl -- use strict; use warnings; use HTTP::Request::Common; use URI; { my $uri = URI->new('http://localhost/'); print POST( $uri, ['data' => '<data>'])->as_string; $uri->query_form('data' => '<data>'); print GET( $uri )->as_string; } __END__ POST http://localhost/ Content-Length: 15 Content-Type: application/x-www-form-urlencoded data=%3Cdata%3E GET http://localhost/?data=%3Cdata%3E` [download]	[reply] [d/l]