I always recommend not trying to print out html in the middle of perl code. It looks messy is a nightmare to maintain. Much better to break the html out into a template. If you want to keep it as a single script you can have the template in the cgi it still provides a level of separation. In my opinion something like this is much easier to read and maintain.

#!/usr/bin/perl
use CGI ':standard';
use strict;
use warnings;
use CGI::Carp 'fatalsToBrowser'; # use only for testing
use Template;

my $cgi = new CGI;

$cgi->header( -charset => 'utf-8' );

$ENV{"PATH"} = "/usr/sbin:/usr/bin:/sbin:/bin";

my %data;
while(<DATA>) {
     chomp;
     my @columns = split; 
     push @{$data{rows}}, \@columns
}
close FILE;

my $tt = new Template;

my $template = q(
<!DOCTYPE html>
<html>
    <head>
        <title>PM 1215287</title>
    </head>
    <body onload="parent.adjustMyFrameHeight();">

        <div id='wrapper'>
            <table>
                <thead>
                    <tr>
                        <th>Time</th>
                        <th>Category</th>
                        <th>Sender</th>
                        <th>Recipients</th>
                        <th>Quarantined-ID</th>
                    </tr>
                </thead>
                <tbody>
                    [% FOR row=rows %]
                        <tr>
                            <td>[% row.0 %] [% row.1 %] [% row.2 %]</t
+d>
                            <td>[% row.3 %]</td>
                            <td>[% row.4 %]</td>
                            <td>[% row.5 %]</td>
                            <td>[% row.6 %]</td>
                        </tr>
                    [% END %]
                </tbody>
            </table>
        </div>

        <style>
            body
            {
                background-color : #95B8DB;
            }
            #wrapper
            {
                min-height:500px;
                display:block;
            }
            table, tr, th, td
            {
                border : 1px solid grey;
            }
        </style>
    </body>
</html>
);

$tt->process( \$template, \%data ) or die $tt->error;


__DATA__
May 3 15:58:17 SPAM sender@domain.com  peter.w@recipient.com  spam-Lub
+_LynRmcvj.gz
May 3 15:58:24 SPAM sender@domain1.com  coev074@recipient1.com  spam-g
+SCAdAuMpiD0.gz
May 3 15:59:27 BANNED sender@domain2.com  nadia.meli@grecipient2.com  
+banned-BpF8aM7FM48B
May 3 16:00:29 SPAM sender@domain.com  sascha_ste@recipient.com  spam-
+6fFrrzUjgvug.gz
May 3 16:01:48 INFECTED sender@domain3.com  philipp_me@recipient.com  
+virus-SZLvi-VO4IIv
May 4 16:02:28 SPAM sender@domain.com  caro.grill@recipient3.com  spam
+-saYzvikxOfVL.gz
May 4 16:02:45 SPAM sender@domain.com  pellitter@recipient.com  spam-8
+K649OHNlRQ2.gz
May 4 16:03:14 SPAM sender@domain1.com  anton.d@recipient.com  spam-3r
+pUGn3IcDnG.gz

[download]

In reply to Re: INSERT file contents inside a table by rnewsham
in thread INSERT file contents inside a table by theravadamonk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.