Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: CGI form results to XML

by Your Mother (Chancellor)
on Feb 17, 2013 at 21:08 UTC ( #1019212=note: print w/ replies, xml ) Need Help??


in reply to CGI form results to XML

Now, please! donít do this directly. The Vars() thing is a back-compat shim to perl4 days and you should always white-list and filter your user input, not blanket echo. But you can experiment with thisĖ

use strict; use warnings; use CGI::Pretty ":standard"; use XML::Simple; if ( my %params = CGI::Vars() ) { $_ = [ split /\0/ ] for values %params; print header("application/xml"), XMLout(\%params); } else { print header(), start_html(), h1("OHAI: I CAN HAZ HTML FORMZ?"), start_form(); print p(textfield("birthday")) for 1 .. 5; print end_form(), end_html(); } __END__ perl pm-1019080 'birthday=1:356;birthday=2:365' Content-Type: application/xml; charset=ISO-8859-1 <opt> <birthday>1:356</birthday> <birthday>2:365</birthday> </opt>

You can replace CGI::Pretty with CGI. Itís just nicer to inspect with Pretty.


Comment on Re: CGI form results to XML
Select or Download Code
Re^2: CGI form results to XML
by spencerr1 (Novice) on Feb 17, 2013 at 22:07 UTC

    Thanks for your help, I will give this a going over and give it a go

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1019212]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (4)
As of 2015-07-04 21:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (60 votes), past polls