There's a lot to tackle here. First, and most important, is that you don't tell us what, precisely, isn't working. That would potentially help to narrow it down, because there are a lot of problem areas.

• Was your opendir call in your Begin subroutine successful? If it wasn't, you wouldn't know, because it would fail silently.
  • Solution: don't let it fail silently. Rewrite that line as opendir DIR, $path or die "Can't open directory:$!\n";
• Where are you reading the form input values from?
  • Solution : standard practice is to use CGI and import the param function to read the request parameters. You do this by putting use CGI 'param'; or use CGI qw(param); near the top of your script, and calling param('foo') to get the submitted value.
• Where is the %FORM hash populated? If it's not populated, then all the parameter names in your HTML form will be blank. (obviously this relates to the issue above).
  • Solution : make sure it's populated. Debugging this sort of issue is easier if you run your script with use warnings; or -w in your hash-bang line. This would cause perl to warn you that you're using uninitialized values.

Some larger issues that pertain to performance and readability: foreach (@thefiles) and foreach $_ (@thefiles) are functionally equivalent, but the longer version has the added bonus of not being idiomatic and also potentially confusing. You don't need to loop through an array to get its size, and you definitely don't need to sort that array and throw away the results while doing so. $count = @thefiles will get you the answer you seek there.

Most importantly, you're not using strict in this code, which gives you the false convenience of globals; this makes it harder to understand your program, especially for someone who didn't write it. This has a further deleterious effect on your subroutines, which don't group the various functional bits of your program together in a natural way. Think about the smallest pieces of stuff your program needs to do and work from there. I would suggest that you have one subroutine that gets the list of files, sorts it, and returns it, and another to generate the checkbox form, and takes as a parameter the list of files. That should be enough to get you started.

HTH!

Hello, thank you very much for your great comments and valued suggestions. I am deeply sorry for not being clear enough on my first attempt. My problem was only to learn why the values I select from my form array are not making it into the text file as they should? The last choice I select is the only value being added to the list at this time. (In the past, I had real name values written in my html form. Passing/controlling these type of values has been so simple.) The below example uses an array made directly from opening a given dir. This confuses me deeply and I have tried so very hard to find the error for weeks... I have again polished things up a bit and followed your advice. Sincerely, I don't yet fully understand how to write all the different methods using perl, (I do promise to study them for the benifit they will bring me)if I may request the example or correction to follow my current coding style. Hope I'm not being to forward, Thank you again in advance for your time and insight. Jim

 
#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);

#############################################

$path_to_files = "/home/foo/www/dir";

$script = "$ENV{'QUERY_STRING'}";

#############################################

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
   ($name, $value) = split(/=/, $pair);
   $value =~ tr/+/ /;
   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

   $value =~ s/\n/ /g;# added to strip line breaks 

   $FORM{$name} = $value;
}

#############################################

print "Content-type: text/html\n\n";

$query = "$ENV{'QUERY_STRING'}";

if ($query eq "test") {&Display_Form}
elsif ($FORM{'create_list'} eq "Create") {&Create_List}
else {&Display_Form}

#### BEGIN DISPLAY FORM ####

sub Top {
opendir DIR, "$path_to_files" or die "Can't open directory:$!\n"; 
@thefiles = sort(grep(/html$/, readdir(DIR)));
closedir(DIR);
$count = @thefiles;

print "<html>";
print "<head><title>MY SIMPLE FILE SELECTOR</title></head>";

print "<body bgcolor =\"#FFFFFF\" text =\"#000000\" link = \"#808080\"
+ vlink = \"#808080\" alink = \"#808080\">";

print "<center><h2>MY SIMPLE FILE SELECTOR</h2>";

print "<br><br><small><b>The following [$count] files were found in th
+e [$path_to_files] Dir.</b></small><br><br>";
print "</center>";
}

sub Display_Form {
&Top;
print "<center><table width=\"246\">";
print "<tr>";
print "<td align=\"left\" width=\"312\">";

print "<form action=\"$script\" method=\"POST\">";
print "<li type=\"square\"><font size=\"2\"><i>Select from list</i></f
+ont><BR>";

foreach (@thefiles) {
$choice = $_;    
print "<input type=\"checkbox\" name=\"choice\" value=\"$choice\"><b>$
+choice</b><br>";
}

print "<p><input type=\"submit\" name=\"create_list\" value=\"Create\"
+></p>";
print "</form>";
print "</td></tr></table>";


&Bottom;
}

sub Bottom {
print "<center><br>";
print "<small><small>$footer</small></small>";
print "</center></html>";
}

#### END DISPLAY FORM ####

#### BEGIN CREATION PROCESS ####

sub Create_List {
$choice = "$FORM{'choice'}";
@choices = split(/,/, $choice); 
$selected = @choices;

open FILE,">list.txt" or die "Can't open file:$!\n"; 
foreach (@choices) {
print FILE "$choice\n";
}
close FILE;

&Finished;
}

sub Finished {
&Top;
print "<center><h4>List created</h4>";
print "You selected ($selected):<br><li>$choice</li><br>";
print "<br><A HREF=\"javascript:history.back()\">Go Back...</A></cente
+r>";
&Bottom;
}

#### END PROCESS ####
[download]

Really, seriously, use CGI instead of your hand-rolled procedure. It's been battle-tested, and is amazingly convenient to use; it handles all the URL-encoding and so forth, and deals with (inter alia) URLS that read like /script.pl?foo=bar&baz=bletch, which would mess yours up. CGI will cut way down on the number of lines of code in your script, and make debugging easier. In fact, it's your hand-rolled procedure that appears to be the culprit. What you have in your HTML form, as generated by the script, is something like this:

 <input type="checkbox" name="choice" value="foo.txt">
 <input type="checkbox" name="choice" value="bar.txt">
[download]


And, assuming you check both boxes, there will be two name-value pairs in the input:

choice=foo.txt
choice=bar.txt
[download]

and when your hand-rolled procedure runs, here's what happens: it encounters the first one, and sets $FORM{'choice'} to foo.txt; when it enounters the second one, it sets $FORM{'choice'} to bar.txt. So that's why you only see the last value.

Here's how you'd parse the form with CGI: at the top of your script, put use CGI qw(param); and to get the list of selected files, you'd simply add the one line @files = param('choice');. End of story.

I also want to lean hard on use strict. It may seem like it will make things more painful, but it will force you to think about which subroutines need access to which data. It will make your code so much more maintainable. And, as a final suggestion, I'd suggest you look into using CGI ;)

If not P, what? Q maybe?
"Sidney Morgenbesser"

You've given a good description of what you want your program to do, but you don't say what isn't working. Is it not putting the data into your selection box? Are you getting Internal Server Errors? Please give a better problem description.

Just an fyi - you should have a use strict;, a use warnings; and you can use CGI to write your HTML for you. Observe.

#!/usr/bin/perl
use strict;
use warnings;
use CGI ':all';
use CGI::Carp qw(fatalsToBrowser);
########################

our $PATH     = "/home/foo/www/dir";

{
    my @files =
        sort
        grep /html$/,
        glob $PATH;
    
    print
        param() ?
        selection_report( @files ) :
        selection_list( @files );
    
    exit;
}

sub selection_report {
    return
        header_template()
        . center( h3( 'Finished...' )
                  . "You selected: "
                  . join(", ", param('files') ) )
        . footer_template();
}

sub header_template {
    return
        header()
        . start_html( -title   => 'MY SIMPLE FILE SELECTOR',
                      -bgcolor => '#ffffff',
                      -text    => '#000000',
                      -link    => '#000000',
                      -vlink   => '#000000',
                      -alink   => '#000000' );
}

sub footer_template {
    return
        br()
        . a( { href => 'javascript:history.back()' },
             'Go Back...' )
        . small( small( '...' ) )
        . end_html();
}

sub selection_list {
    my @files = @_;
    
    return
        header_template()
        . center( h2( 'MY SIMPLE FILE SELECTOR' )
                  . br()
                  . br()
                  . small( b( "The following [$#files] files were foun
+d in the [$PATH] directory." ) ) )
        . br()
        . br()
        . table( div( { -align => 'center' },
                      center( table( { -width => 246 },
                                     Tr( td( { -align => 'left',
                                               -width => 312 },
                                             start_form( -method => 'P
+OST' )
                                             . li( { -type => 'square'
+ },
                                                   font( { -size => 2 
+},
                                                         i( 'Select fi
+les' ) )
                                                   . br()
                                                   . map( b( checkbox_
+group( 'files',
                                                                      
+       $_ ) ),
                                                          @files) )
                                             . p( submit( -name => 'cr
+eate_list',
                                                          -value => 'C
+reate' ) )
                                             . end_form()
                                             ) # </td>
                                         ) # </tr>
                                     ) # </table>
                              ) # </center>
                      ) # </div>
                 ) # </table>
        . footer_template();
}
[download]