sorry, I should have tested that. Try this:
my @first = param('first');
my @last = param('last');
open (DB, ">test.db") or die $!;
for (my $i; $i < 10; $i++) {
last unless ($first[$i] and $last[$i]);
print DB (join "|", (($i + 1), $first[$i], $last[$i])), "\n";
}
close DB;Happy coding,
--Drew
http://www.camelsoup.com
ftp://ftp.camelsoup.com
Code:
use CGI qw(:standard); my @first = param('first');
my @last = param('last');
open (DB, ">test.db") or die $!;
for (my $i; $i < 10; $i++) {
last unless ($first[$i] and $last[$i]);
print DB (join "|", (($i + 1), $first[$i], $last[$i])), "\n";
}
close DB;
--Drew
http://www.camelsoup.com
ftp://ftp.camelsoup.com
