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

my @cols = qw(TIME CATEGORY Sender Recipients Quarantined-ID);
my $table = '<table border="1" cellspacing="0" cellpadding="5"><tr>';
$table .= join '',map{"<th>$_</th>"}@cols;
$table .= '</tr>';

#open FILE, '<', '/tmp/quarantine.ok' or die $!;
#while(<FILE>) {
while (<DATA>){
   chomp;
   next unless /\S/; # skip blank lines
   my @f = split ;
   my $date = join ' ',@f[0..2];
   my $color = ($f[3] eq 'INFECTED') ? '#ffcccc' : '#ffffff';
   
   $table .= qq!<tr style="font-family:courier" bgcolor="$color">!;
   $table .= join '',map{"<td>$_</td>"}$date,@f[3..6];
   $table .= "</tr>";
}
#close FILE;
$table .= '</table>';

print header,start_html('Page Title');
print h1("Heading");
print $table;
print end_html;


__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]
poj

In reply to Re: INSERT file contents inside a table by poj
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.