Scrolling list and data

nasa has asked for the wisdom of the Perl Monks concerning the following question:

Greetings wonderfull people.

I have a DIR with several .data files in it.
I hoped to extract the data files to a scrolling list like so

opendir(HOMEDIR, "\interest") ||
die ("Unable to open directory");
while ($filename = readdir(HOMEDIR)) {
    

print scrolling_list('name',[$filename]);

            }
closedir(HOMEDIR);
[download]

This resulted in creating a separate scrolling list for each file in the DIR.
Very untidy
I have seen arrays printed in textboxes before
So I then tried this.

opendir(HOMEDIR, "\interest") ||
die ("Unable to open directory");
while ($filename = readdir(HOMEDIR)) {
    
@array = $filename;
print scrolling_list('name',[@array]);

            }
closedir(HOMEDIR);
[download]

However this resulted in exactly the same thing
A separate scrolling box for each file .
Whats the trick here guys.
How do we lock the little critters in one scrolling box.

Comment on Scrolling list and data Select or Download Code

Replies are listed 'Best First'.
Re: Scrolling list and data by ikegami (Patriarch) on Dec 13, 2006 at 06:57 UTC
`"\interest"` doesn't mean what you think it means. `$\ = "\n"; print "interest"; # interest print "\interest"; # interest print "\\interest"; # \interest print 'interest'; # interest print '\interest'; # \interest print '\\interest'; # \interest print "test"; # test print "\test"; # A tab followed by est print "\\test"; # \test print 'test'; # test print '\test'; # \test print '\\test'; # \test` [download] See "Quote and Quote-like Operators" in perlop. And please please please use `use strict;`.	[reply] [d/l] [select]
Re: Scrolling list and data by McDarren (Abbot) on Dec 13, 2006 at 06:32 UTC
Two things: Firstly, from perldoc CGI: `1. The first and second arguments are the list name (-name) and value +s (-values). As in the popup menu, the second argument should be an +array reference.` [download] So you need to pass your array as a reference. Something like the following should do the trick: `print scrolling_list('name', \@array);` [download] Secondly, you need to remove that line of code from your while loop, because as it stands at the moment you are printing a new list for every file. In fact, you don't even need the while loop. You could simply do something like the following (untested)... `my $data_dir = '/foo'; opendir(DIR, $data_dir) or die "Cannot opendir $data_dir:$!"; my @files = grep { /data$/ && -f "$data_dir/$_" } readdir DIR; closedir DIR; print scrolling_list('name', \@files);` [download] Cheers, Darren :)	[reply] [d/l] [select]