How to print hash values using perl CGI

Question

I'm new to perl CGI and trying to print hash data to html using perl CGI. Below is my code.

#!/usr/bin/perl

use strict;
use warnings;
use CGI ':standard';
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

our %dashboard_data;
my $q = new CGI;

################################################################################
## Read the dashboard_data file
require "partition_tsv_dashboard.pl";

print   $q->header,
        $q->start_html('Top Level TSV Dashboards'),
        $q->h1('Top Level TSV Dashboards'),
foreach my $model (sort keys %{$dashboard_data{'project'}}){
        $q->h2("Model: $model"),
}
        $q->end_html;

The partition_tsv_dashboard.pl is the nested hash. Contains below data.

#!/usr/bin/perl

$dashboard_data {'project'} {'model1'} {'P00'} {'TSV-193'} {'COMP_0_P00'} = '';
$dashboard_data {'project'} {'model2'} {'P00'} {'TSV-001'} {'COMP_0_P00'} = '';
$dashboard_data {'project'} {'model3'} {'P00'} {'TSV-001'} {'COMP_0_P00'} = '';
$dashboard_data {'project'} {'model4'} {'P00'} {'TSV-001'} {'COMP_0_P00'} = '';
$dashboard_data {'project'} {'model5'} {'P00'} {'TSV-001'} {'COMP_0_P00'} = '';

1;

I'm getting below error when I try execute the CGI program. How do I map the a hash values to CGI object? Can someone help me with this.

Output.

Software error:
syntax error at /web/keystone/cgi-bin/tsv_dashboard.pl line 26, near "$model ("
Execution of /web/keystone/cgi-bin/tsv_dashboard.pl aborted due to compilation errors.

I don't think you can have a for loop within another list. Try split the print statement up instead — Håkon Hægland
– Håkon Hægland, Commented Sep 12, 2021 at 20:50

Håkon Hægland · Accepted Answer · 2021-09-12 20:52:18Z

2

You cannot have a for loop inside the argument list of the print statement. Instead try split it up like this.

print   $q->header,
        $q->start_html('Top Level TSV Dashboards'),
        $q->h1('Top Level TSV Dashboards');

foreach my $model (sort keys %{$dashboard_data{'project'}}){
        print $q->h2("Model: $model");
}
print   $q->end_html;

answered Sep 12, 2021 at 20:52

Håkon Hægland

40.9k22 gold badges96 silver badges209 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

ikegami Over a year ago

HTML injection bug in the h2 line

Håkon Hægland Over a year ago

Thanks for the comment. It would depend on what the script partition_tsv_dashboard.pl does right? Since it is responsible for populating the %dashboard_data hash. If the script does not use user input to populate the hash, it cannot be the source of a HTML injection bug as I understand it..

ikegami Over a year ago

I find it very unlikely that %dashboard_data contains HTML rather than plain text.

Chris · Accepted Answer · 2021-09-13 02:02:47Z

1

The prior answer from @Håkon Hægland is likely the best answer, but you could use map to achieve a similar result.

use CGI ':standard';

my $q = new CGI;

my @a = ("blah", "wooble");

print $q->h1("things"), "\n",
      (map { $q->h2($_) } @a), "\n",
      $q->br, "\n";

To get this output:

% perl test.pl
<h1>things</h1>
<h2>blah</h2><h2>wooble</h2>
<br />

answered Sep 13, 2021 at 2:02

Chris

38.2k6 gold badges33 silver badges59 bronze badges

Collectives™ on Stack Overflow

How to print hash values using perl CGI

2 Answers 2

3 Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

3 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related