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 $var4 = $query->param('var4');
my $var5 = $query->param('var5');
my $var6 = $query->param('var6');
my $var7 = $query->param('var7');
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";
$i++;
#
# three lines to format header nicely
#
@report_lines = split(/\n/, $report);
print FILE $report_lines[0];
print FILE $report_lines[1];
print FILE $report_lines[2];
print FILE $report_lines[3];
print FILE $report_lines[4];
close FILE or die "blergh!";
# skip a few
$report = generate_report($bar);
open(FILE, ">>report.txt") or die "blah!";
print FILE "Report number: $i";
$i++;
#
# format the header again
#
@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;
sub display_report {
my $data = shift;
my $report = generate_report($data);
open(FILE, ">>report.txt") or die "Can't append to report.txt: $!";
print FILE "Report number: $num_displayed";
$num_displayed++;
print FILE $report;
}
} # end of enclosing scope for $num_displayed