Here's one way...
my (@name, @address) = (param('name'), param('address'));
open (DB, ">test.db") or die $!;
flock (DB, 2);
for (my $i; $i < 10; $i++) {
last unless ($name[$i] and $address[$i]);
print DB, join "|", (($i + 1), $name[$i], $address[$i]), "\n";
}
close DB;Happy coding,
--Drew
http://www.camelsoup.com
ftp://ftp.camelsoup.com
Code:
use CGI qw(:standard); my (@name, @address) = (param('name'), param('address'));
open (DB, ">test.db") or die $!;
flock (DB, 2);
for (my $i; $i < 10; $i++) {
last unless ($name[$i] and $address[$i]);
print DB, join "|", (($i + 1), $name[$i], $address[$i]), "\n";
}
close DB;
--Drew
http://www.camelsoup.com
ftp://ftp.camelsoup.com
