Form to CSV recommendation sought - Graphic Design Forum and Web Design Forum

likethegoddess · #1 (**permalink**) 30-12-2008, 12:14 AM

I'm working with an existing Formmail script and trying to get multiple messages to port to a single file. In this case, sending the name, email, location, etc. fields for each sender to a single .csv file.

Any recommendations?

Toon · #2 (**permalink**) 30-12-2008, 07:40 PM

Convert form data to csv and send as attachment - Tectite Forums

likethegoddess · #3 (**permalink**) 31-12-2008, 04:11 PM

Hey, thanks, toon. I'll check it out.

likethegoddess · #4 (**permalink**) 31-12-2008, 05:14 PM

Ah. They start off talking about db solutions, but move on to attached csv files. I need to collect data at a single source that's exportable in csv format rather than getting a csv file for each email. Sorry if I was unclear.

sionnach · #5 (**permalink**) 31-12-2008, 05:40 PM

I'm not sure what Formmail is, but if you explain a small bit clearer what you want I might be able to help. Where would the source of the emails be coming from? Does the data already exist and if so, where?

likethegoddess · #6 (**permalink**) 31-12-2008, 06:34 PM

Ah, I'm working a contact form on a website. The contact form is an extensive questionnaire, really, with information submitted by the website user. I need to collect that data into one file, which may be a database. The data needs to export to csv so that the basic contact info (name, email, etc.) can be stripped out and uploaded to an email list. Does that make sense?

vdowsett · #7 (**permalink**) 31-12-2008, 07:25 PM

Can you set up a MySQL database, and have the form submit to that?

Scriptage · #8 (**permalink**) 02-01-2009, 04:23 PM

Code:

#!/usr/bin/perl -w
use strict;
use URI::Escape;
use Fcntl qw(:flock);
use CGI qw(:all); # Export all CGI functions into the current package
my @variables = qw(name email comments);
my $csv_file = "comments.csv";
sub printPage{
my $message = shift;
print<<EOF;
<?xml version="1.0" encoding="ISO-8859-1"?>
<!DOCTYPE html 
PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>PERL Form</title>
<link rel="stylesheet" href="index.css" media="screen" />
</head>
<body>
$message
</body>
</html>
EOF
exit(0);
}
##################################################################################################################
print header;
my ($output, $sem);
   foreach my $item(@variables){
   printPage("We were unable to process your comments due to the omission of '$item'") unless defined param($item);
   $output .= uri_escape(param($item)) . ",";
   }
open(my $fh, ">>$csv_file") || die "Coulod not open comments.csv: $!";
print $fh substr($output, 0, length($output)-1) . "\n";
close($fh);
printPage("Thank you for your comments.");
 

sub get_lock{
open($sem, ">semaphore.sem") || die "Could not create semaphore file: $!";
flock($sem, LOCK_EX) || die "Lock failed: $!";
}
sub release_lock{
close($sem);
}

That should do the trick, all you need to do is change (or add to) the variable names in @variables (the names of your form items) and the name of your csv file.

The output is URI escaped so you won't get input such as "Hi, my name is John" affecting the comma seperation in your CSV file.

Any questions just ask.

Regards

Carl

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Movie recommendation service	PR Design	Off Topic	2	06-11-2008 02:38 PM
How to create a form?????	PosterManiac	General Web Design Forum	3	17-05-2008 02:44 PM
PHP Form	ohio	CSS Forum	3	06-12-2007 12:53 AM
Mobile/Web Designer Sought For London-Based Social Networking Application	Snappl	Design Forum Employment	0	16-11-2007 07:45 AM
Form Help	drewbie_wan	Programming Forum	1	07-09-2007 08:32 AM