HTML/CGI for loop problem

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

Hello Monks!

Back again with another problem I'm stuck on.. I couldn't find my answer or know how to narrow down my search on google to find my answer so I'm asking here again.

So I've had some help with using ajax in a .cgi code which was what I needed. But the original code was an <input> type and I wanted it to be a drop down list.

The problem is that I do not know how to squeeze the commented out for into the html where the dropdown list would be.

Here's the code

my $cgi = new CGI;
my $pjx = new CGI::Ajax( 'exported_func' => \&perl_func );

my $dirname = '';
opendir my($dh), $dirname or die "Couldn't open dir'$dirname':$!";
my @files = readdir $dh;
my $files;
closedir $dh;
#for my $i ( 2 .. $#files ) {
#       print "<option value=\"$files[$i]\">$files[$i]</option>\n";
#       };
sub perl_func {
        my $input = shift;
        my $output = $input . "was the input!";
        return ($output);
}

print $pjx->build_html( $cgi, \&Show_HTML);

sub Show_HTML {
        my $html = <<__EOI__;
<!DOCTYPE html>
<html>
        <head>
                <script type="text/javascript" src="\jquery.js"></scri
+pt>
                <script type="text/javascript" src="script.js"></scrip
+t>
                <script type="text/javascript" src="stats.js"></script
+>
                <title> Graph </title>
        </head>
        <body>
                <form action=''>
                        <select name="users" id="users" onChange="expo
+rted_func( ['users'], ['files'] );">
                        </select>
                </form>
                <div id="files"></div>
        </body>
</html>
__EOI__
return $html;
[download]

Thanks in advance!

Comment on HTML/CGI for loop problem Select or Download Code

Replies are listed 'Best First'.
Re: HTML/CGI for loop problem by blue_cowdawg (Monsignor) on Jul 14, 2014 at 15:51 UTC
There are multiple ways you can do this. You might want to investigate using HTML::Template and friends instead of embedding your HTML inside your code. If you still want to embed your HTML inside your code one way to embed your for loop is to use two print statements instead of one. The first prints everything up to and just shy of what the for loop is doing and the other everything after the for loop. `sub buildHTML { my $html = <<!firsthalf something something !firsthalf foreach my $iter(@whatever) { $html = sprintf "%s %s",$html, $something else; } my $html2 =<<!secondhalf; other stuff !secnodhalf return $html . $html2 }` [download] Peter L. Berghold -- Unix Professional Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg	[reply] [d/l]
Re: HTML/CGI for loop problem by Anonymous Monk on Jul 14, 2014 at 19:32 UTC
... I'm stuck ... Write more functions, determine the common parts and turn them into functions, then turn the non-common parts into functions , so you have small functions you can understand #!/usr/bin/perl -- use strict; use warnings; Main( @ARGV ); exit( 0 ); sub Show_Red_HTML { my( $query ) = @_; my $dirname = '.'; my $js_includes = js_includes(); my $css_includes = stylesheet_includes(); my $title = "This is the redness"; my $drops = red_dropdown_files( $dirname ); my $body = red_form_html( $query, $drops ); return Show_HTML( "$css_includes $js_includes", $title, $body ); } ## end sub Show_Red_HTML sub Show_HTML { my( $head, $title, $body ) = @_; my $header = common_body_header_html(); my $footer = common_body_footer_html(); return qq{<!DOCTYPE html> <html> <head> <title> $title </title> $head </head> <body> $header $body $footer </body> </html>}; } ## end sub Show_HTML sub red_dropdown_files { my( $dirname ) = @_; use Path::Tiny qw/ path cwd /; use CGI qw/ escapeHTML /; my @files = path( $dirname )->children; my $ret = ""; for my $file ( @files ) { $ret .= sprintf qq{<option value="%s">%s</option>\n}, escapeHTML( $file ), escapeHTML( $file ); } return $ret; } ## end sub red_dropdown_files [download] Why write like this? Its easier to test/debug each small part seperately , for example `sub Main { Tests(); # RealProgram(); } ## end sub Main sub Tests { require Test::More; Test::More->import( 'no_plan' ); ## and ok()... test_drops(); } ## end sub Tests sub test_drops { chdir 'testdir'; my $drops = red_dropdown_files( '.' ); ok( int $drops =~ m{\Q<option value="chapter-8.pdf">\E}, 'drops wo +rks' ); } ## end sub test_drops` [download] Its important not to forget to escapeHTML	[reply] [d/l] [select]
Re: HTML/CGI for loop problem by perlfan (Parson) on Jul 15, 2014 at 15:45 UTC
Please, for the sake of sweet Baby Jesus, use a templating system like Template.	[reply]


Perl: the Markov chain saw
	PerlMonks