in reply to associate radio buttons
use Cwd; my $dir = getcwd; opendir (DIR, $dir) or die $!; my @dir = readdir DIR; rewinddir(DIR); my @perlFiles = grep /\.pl/, readdir DIR; print '<HTML><BODY><FORM ACTION="/cgi-bin/program.pl" METHOD="POST">'; foreach my $item (@perlFiles) { print $item . ':<INPUT TYPE="radio" NAME="filechosen" VALUE="' . $item + . '" >'; } print '<BR></FORM></BODY></HTML>';
|
---|