#!/usr/bin/perl

use CGI qw(:standard);
print "Content-type: text/html\n\n";
require "shopconfig.cgi";

use DBI();


# Connect to the database.
my $dbh = DBI->connect("DBI:mysql:database=crashint_test;host=localhost",
"crashint", "PASSWORD",
{'RaiseError' => 1});



my @count = ();
opendir (DR,"$datapath/members/");
@count = grep { /\..*/ } readdir(DR);
closedir (DR);

foreach $line (sort @count) {

print "$line<br>";



open(LIST, "<$datapath/members/$line");
while(<LIST>) {
my ($Username, $Password, $lname, $fname, $country, $email, $add1, $add2, $city, $state, $zip, $phone) = split/\|/;



$dbh->do("INSERT INTO foo VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)", undef, "$Username", "$Password", "$fname", "$lname", "$country", "$email", "$add1", "$add2", "$city", "$state", "$zip", "$phone");


}

close(LIST);

}

# Disconnect from the database.
$dbh->disconnect();

#!/usr/bin/perl -w

$datapath = '/your/data/path';

use CGI;
$query = CGI::new();

print $query->header();

use DBI;

$dbh = DBI->connect('dbi:mysql:crashint_test:localhost','crashint','PASSWORD');

opendir (DIR,"$datapath/members"); # Note NO trailing slash.
@files = grep (!/^\.\.?$/, readdir (DIR));
closedir (DIR);

foreach $file (@files) {

print "$file <BR>";

open (DATA,"$datapath/members/$file");
@filedata = <DATA>;
close (DATA);

$filefields = join('',@filedata);

@filefields = split(/\|/,$filefields);

$Username = $filefields[0];
$Password = $filefields[1];
$lname = $filefields[2];
$fname = $filefields[3];
$country = $filefields[4];

...

$sth = $dbh->prepare("INSERT INTO foo VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)", undef, "$Username", "$Password", "$fname", "$lname", "$country", "$email", "$add1", "$add2", "$city", "$state", "$zip", "$phone");
$sth->execute;
$sth->finish;

}

$dbh->disconnect;