You could just iterate over the hash and store the results in the array.
This will also allow you to add formating and extra info to the key/value
pairs. E.g
foreach $key(sort keys %data) {
push(@data,"Field $key: Value $data{$key}\n");
}
open(SENDMAIL, "|/usr/lib/sendmail")
or die "can't fork for sendmail: $!\n";
print SENDMAIL <<"EOF";
From: blah
To: blah
Subject: STUFF
@data
EOF
-----Original Message-----
From: Jon Howe [mailto:[EMAIL PROTECTED]]
Sent: 26 November 2001 14:12
To: [EMAIL PROTECTED]
Subject: cgi
Is possible to have a cgi-perl script return the html form values + names,
in the same order in which they appearfo in the html rm supplying the post
with out having to
refer to each hash/array element.
An example of what I am Woking with :
##########################
/usr/bin/perl -w
use CGI_Lite;
$cgi = new CGI_Lite ();
%data = $cgi->parse_form_data ();
@data = %data;
open(SENDMAIL, "|/usr/lib/sendmail")
or die "can't fork for sendmail: $!\n";
print SENDMAIL <<"EOF";
From: blah
To: blah
Subject: STUFF
@data
EOF
close(SENDMAIL) or warn "its all GONE WRONG!!!!!!!";
#############################################
I could reefer to each element of %data $data{whatever value} individually
but this seems a bit laborious.
It would be nice to have a ordered array I could pass straight out.
--------------------------Confidentiality--------------------------.
This E-mail is confidential. It should not be read, copied, disclosed or
used by any person other than the intended recipient. Unauthorised use,
disclosure or copying by whatever medium is strictly prohibited and may be
unlawful. If you have received this E-mail in error please contact the
sender immediately and delete the E-mail from your system.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
