sub recordVote { my $question_id = $_[0]; my @qlist = ""; my $i = 0; foreach $i (0..4) { $qline ="$id[$i]|$question[$i]|$answer1[$i]|$answer2[$i]|$tally1[$ +i]|$tally2[$i]\n"; push @qlist, $qline; } #print "<!--\@qlist is:\n@qlist-->"; open (POLLWRITE,"+< D:/Inetpub/wwwroot/j14/include/special_poll.tx +t") or die "couldn't open poll file"; print POLLWRITE @qlist or die "Couldn't write to poll file" +; close(POLLWRITE) or die "Couldn't close poll file aft +er writing"; }
In reply to write to textfile by squeeky
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |