#----- Hash parse section shown below ---------------------- # Finally, we'll load the variables into an associative array # so we can use it when we need it. my %form_data; if($form_data{$name}) { $form_data{$name} .= "\t$value"; } else { $form_data{$name} = $value; } print qq($name = $value

); } #### #------------------------------------------------- This is the web page output from above print qq statement plus other code #----------------------------------------------------------- #### name = me email = me@you.com city = boogerville location = XYZ web_url = www.me.you web_title = STUFFit comments = These are comments. Hi There. What'cha doin'? Your GuestBook Entry has been Submitted! Your guestbook entry has been successfully added to the guestbook. You may need to click reload to view your guestbook entry. #### #------------------------------------------------- # attempt to write data out to a file here. # doesn't work. nothing writes out. if($form_data{'email'}) { # if there's an email address, let's add it as a link print GUESTBOOK "
$form_data{'name'} - $form_data{'city'}, $form_data{'location'}\n"; } else { # otherwise, just add their name print GUESTBOOK "From: $form_data{'name'}
\n"; }