Note: You should use qq instead of "" for your strings anytime that double quotes will be enclosed in the value. Saves you from having to escape them:my $checkbox = param($word[0]);
#!/usr/bin/perl #cgi lib, no need to parse form use strict; use warnings; use CGI qw(:standard); print header(); print start_html("Available Classes"); print qq{<form action="EnrollStudentPL.cgi" method="POST">}; my $infile = "/home/ajb004/public_html/arabic.txt"; open my $fh, $infile or die $!; while (<$fh>) { s/_/ /g; my @word = split ','; print qq{<input type="checkbox" name="$word[0]" value="on"> $word[ +0]<br>}; print qq{$word[1] <br>}; print qq{$word[2] <br>}; print qq{$word[3] <br>}; } close $fh or die $!; print qq{<table border="0">}; print qq{<tr>}; print qq{ <td> Enter your University ID number: </td>}; print qq{ <td><input type="text" size="20" name="ID"></td>}; print qq{</tr>}; print qq{</table>}; print qq{<input type="submit" value="Enroll">}; print end_html();
In reply to Re: Retrieving Check Box Parameters
by wind
in thread Retrieving Check Box Parameters
by ajbrewe
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |