l i n u x - u s e r s - g r o u p - o f - d a v i s
Next Meeting:
July 7: Social gathering
Next Installfest:
Latest News:
Jun. 14: June LUGOD meeting cancelled
Page last updated:
2001 Dec 30 16:59

The following is an archive of a post made to our 'vox-tech mailing list' by one of its subscribers.

Report this post as spam:

(Enter your email address)
Re: [vox-tech] How to parse and submit a form in perl
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [vox-tech] How to parse and submit a form in perl

One disadvantage of tools that hide details from you (i.e., masking actual
HTML behind API calls that create syntactically correct HTML for you) is that
they require you to learn several systems and understand how they interact to
avoid becoming totally confused.

My suggestion: don't use HTML::<whatever>, just handle it using your own perl
code. It's not as efficient or elegant as using the library functions, but
you will understand what is happening and be able to effectively de-bug what
you have written.

Here's something to get you started (sorry about the long lines):
if ($ENV{'QUERY_STRING'}) { # GET data are in this variable
        @pairs = split(/&/, $ENV{'QUERY_STRING'}); # Split different variables into 
temporary array
        foreach $pair (@pairs) {
                ($varname, $value) = split(/=/, $pair); # Split name/value pairs into 
more temp variables
                $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; # Undo 
the URL-encoding
                $form{$varname} = $value; # Put values into %form indexed by their 
        &my_function_to_do_whatever; # Whatever program logic follows

Henry House
OpenPGP key available from http://hajhouse.org/hajhouse.asc

LUGOD Group on LinkedIn
Sign up for LUGOD event announcements
Your email address:
LUGOD Group on Facebook
'Like' LUGOD on Facebook:

Hosting provided by:
Sunset Systems
Sunset Systems offers preconfigured Linux systems, remote system administration and custom software development.

LUGOD: Linux Users' Group of Davis
PO Box 2082, Davis, CA 95617
Contact Us

LUGOD is a 501(c)7 non-profit organization
based in Davis, California
and serving the Sacramento area.
"Linux" is a trademark of Linus Torvalds.

Sponsored in part by:
Sunset Systems
Who graciously hosts our website & mailing lists!