bawy
Deleted
Jun 9, 2000, 4:06 PM
Post #1 of 3
(541 views)
|
|
Perl- varying a set of scalars depending on which part of an array
|
Can't Post
|
|
I am trying to substitute a set of scalar values depending on where in the array so I can print new content for each multiple set of values I can only get it to aknowlege the last item in the array though?! PLEASE HELP, URGENT!
print "Content-type: text/html\n\n";
foreach $key (sort keys(%formdata)) {
}
$0010 = ($dr, $name, $degree, $email, $rate, $slide, $area) = ("0010", "John Quincy", "Ph.D.", "John.Quincy", "1.01", "test1", "drug abuse");
$0011 = ($dr, $name, $degree, $email, $rate, $slide, $area) = ("0011", "Joe Adams", "BA", "Joe.Adams", "1.55", "test2", "prophecy issues");
$0012 = ($dr, $name, $degree, $email, $rate, $slide, $area) = ("0012", "Frank Lester", "MA", "Frank.Lester", "0.20", "test3", "rehab");
$0013 = ($dr, $name, $degree, $email, $rate, $slide, $area) = ("0013", "Martha Stewert", "Ph.D.", "martha.stewert", "1.01", "test4", "overdose");
@info = ($0010, $0011, $0012, $0013);
for ($i = 0; $i <= $#info; $i++) {
print <<"midsection";
<html><head><title>$name, $degree</title>
<body>
$dr, $name, $degree, $email, $rate, $slide, $area
</body></html>
midsection
}
|
MAIN
SEARCH
WHO'S 
LOG 