Help for this page
foreach ($i = 1; $i < 10; $i++) { ${"record$i"} = $i * $i; }
for (1 .. 10) { push @records, $_ * $_; } ... foreach my $record (@records) { print $record, "\n"; }
my $var1 = $query->param('var1'); my $var2 = $query->param('var2'); my $var3 = $query->param('var3'); ... my $var8 = $query->param('var8'); my $var9 = $query->param('var9'); my $var10 = $query->param('var10');
$report = generate_report($foo); open(FILE, ">>report.txt") or die "blah!"; print FILE "Report number: $i"; ... @report_lines = split(/\n/, $report); print FILE $report_lines[0]; # you see where this is going
my %vars; for (1 .. 10) { $vars{"var$_"} = $query->param("var$_"); }
# change the form to use multiple selections with the same name my @vars = $query->param('var'); # valid if you have a combobox or checkbox group
{ my $num_displayed = 0; ... } } # end of enclosing scope for $num_displayed
www.com | www.net | www.org
No recent polls found