The terminating string must appear by itself (unquoted and with no surrounding whitespace) on the terminating line.

HTML; #stop HTML printing in chunk. But when this file is fetched from
+ browser, it displays everything starting from the following line unt
+il next
[download]

HTML
[download]

No, you quoted the text about the trailing tag. Just change <<HTML; #… to <<"HTML"; #…


Enjoy, Have FUN! H.Merijn

Did you try that?

Adding the double quotes around the opening tag won't solve the OP's problem. When using a herdoc, perl will "assume" that double quotes were used if none were used.

It's very simple to test this.

$data = <<HTML;
Here is my data!
HTML

$other = <<HTML;
Here is some OTHER data!
HTML

print "$data\n$other\n";
[download]

Output:

Here is my data!

Here is some OTHER data!
[download]

It's a Bad Idea to mix languages in a program. You have CSS inside HTML inside Perl ... it would make your life a lot easier to separate them out. Please look at Template::Tiny or another templating engine.

At the very least, create your own package to contain all that HTML-producing code, or at the very very least, put the code in subs so the HTML is removed from your main program flow. E.g.:

while (my @row = $sth->fetchrow_array) {
  print ivr_call(        $row[5] );
  print non_outage_call( $row[6] );
}

sub ivr_call {
  my $checked = shift eq '1' ? 'checked' : '';
  return "<td><form><input type='checkbox' name='ivr_call' value='1' $
+checked>IVR Call Volume</form></td>";
}

sub non_outage_call {
  my $checked = shift eq '1' ? 'checked' : '';
  return "<td><form><input type='checkbox' name='non_outage_call' valu
+e='1' $checked>Non-Outage Call Volume</form></td>";
}
[download]

Thanks for all the inputs. I had screwd up the code too much and once the confusion I had about heredoc was clarified, I removed the syntax errors (thanks to fishmonger) and now the script is working fine.

I still need to modify how I am fetching data as it's one column I am fetching but only first element of array is getting the value and others are left uninitialized. I'll find what I am still doing wrong.

Also appreciate all for suggesting me better approach as well. I am creating dynamic webpage in perl and as this is first time had no idea of how to do and where to start. So I started from reading some html and decided to use CGI module as it's on perl 5.8 and I can't get modules that are not already present.

Bareword found where operator expected at Admin_Test.pl line 54, near ""<table id="t01"

To correct those compilation errors I had added a semocolon after HTML. My aplologies for not mentioning this in original post

You have a number of syntax errors. Lets look at the first few lines of your while loop.

while (my \@row = $sth->fetchrow_array) {
    print "<table id="t01">";
    print "<tr>";
    if (row[0] eq '1') {
[download]

my \@row is wrong. It should be my @row.
print "<table id="t01">"; has a quoting error. You need to either escape the inner double quotes in id="t01" or use single quotes like this id='t01'.
if (row[0] eq '1') is missing the $ on the $row[0] var

When I see a repeating pattern I think 'can I loop this ?'

Read more... (1178 Bytes)

my @stat = (
  ['trunk_usage'  ,'% Trunk Usage'],
  ['pre_ivr'      ,'Pre-IVR Call Volume'],
  ['trunk_group'  ,'Trunk Group Utilization'],
  ['average_speed','Average Speed of Answer'],
  ['outage_call'  ,'Outage Call Volume'],
  ['ivr_call'     ,'IVR Call Volume'],
  ['non_outage'   ,'Non-Outage Call Volume'],
  ['post_ivr'     ,'Post-IVR Call Volume'],);

my @row = (1,0,1,1,1,0,1,0); 
#while (my @row = $sth->fetchrow_array) {
  print qq!<table id="t01"><tr>!;    
  for my $i (0..$#stat){
    my $chk = ($row[$i] == 1) ? 'checked' : '';
    print qq!<td>
      <input type="checkbox" name="$stat[$i][0]" value="1" $chk />
      $stat[$i][1]
      </td>!;
    if (($i % 2) && ($i < $#stat)){
      print q!</tr><tr>!;
    }
  }
  print q!</tr></table>!;
#}

print q!</div></body></html>!;
[download]

You need to put the database stuff back to replace the test values in @row, and probably the <form> tags but around the table not each input.
poj

Updated subject to mention this is solved. Also I figured that I had to use first element of @row while it loops through all the rows and use only that element.

So I created a new array @widget and kept adding first element from @row while it iterates over all the rows of result. And finally using elemtnts of this new array.

my @widget;
while (my @row = $sth->fetchrow_array) {
    push(@widget, $row[0]);
}
[download]

You should change your SQL so it only fetches the data you want. Alternatively, see DBI.pm#selectcol_arrayref

.
The way forward always starts with a minimal test.

What is in the NAME field of comm_desk_widget_status. Are they names like 'trunk_usage','post_ivr', etc ?

poj

mysql> desc comm_desk_widget_status;
+--------------+--------------+------+-----+-------------------+
| Field        | Type         | Null | Key | Default           |
+--------------+--------------+------+-----+-------------------+
| user         | varchar(100) | NO   | PRI | NULL              |
| name         | varchar(200) | NO   | PRI |                   |
| display      | varchar(200) | NO   |     | NULL              |
| active       | int(1)       | NO   |     | 1                 |
| ts           | timestamp    | NO   |     | CURRENT_TIMESTAMP |
| last_updated | varchar(100) | YES  |     | NULL              |
+--------------+--------------+------+-----+-------------------+
[download]

This is the table description.

When I use bigger data, I use DBM::Deep. I tie it to a file but it's darn fast and has worked fine on multiple applications for me. I believe the hash data size is only limited by your hardware and OS, same for the max file size.

Other people have tied DBD::SQLite into a hash also.

Max data size when you tie BerkeleyDB to a hash is 1 billion bytes.

I’ll second the motion that you really should be using templates here.   (My personal favorite happens to be Template::Toolkit, but de nada.)   There is a fairly-excellent chance that the output of this program will need to be “tweaked,” in response to every whim of the Marketing Department ... ;-) ... and it is w-a-y-y-y easier to do this if the output is described by an external template, instead of being embedded in the Perl source.