
bawy
Deleted
Jun 9, 2000, 4:06 PM
Post #1 of 3
(1448 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 }
|