Your code does not compile

Missing right curly or square bracket at 1194338.pl line 100, at end of line
syntax error at 1194338.pl line 100, at EOF
1194338.pl had compilation errors.

Try

#!/usr/bin/perl
use strict;
use warnings;
use Time::Piece;

# current date/time
my $t = localtime;
my $date = $t->wdayname.' '.$t->dmy('/');
my $time = $t->hms;

# input data
my $dest = "C:/Perl-Script/";
my %hdata = build_hash($dest."Bulletin.txt");

# output html
open OUT, ">". $dest."Bulletin.html" or die "$!";
print OUT qq(
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" 
  "http://www.w3.org/TR/html4/loose.dtd"><html>
<head>
   <title>My Learning Page</title>
   <style type="text/css">
     body { background-color: #ccccff; }
     h2   { color: #0; font-size: 2em; }
     th   { background-color: #e0e0e0 }
     td   { background-color: #ffffff }     
   </style>     
</head>
<body>
<h2>My Home Page</h2>
<h2>Bulletin Date $date  $time</h2>\n);

foreach my $key (sort keys %hdata) {
     
  if (($key eq '"$Persons Absences?"')
   || ($key eq '"$Replacement Persons?"')
   || ($key eq '"$Room Changes?"')){

    print OUT qq!<h3>$key</h3>
    <table border="1" width="100%" style="border-color:#e0e0e0" cellpa
+dding="5" align="left">\n!;
               
    my @arrays = @{$hdata{$key}}; 
    for my $i (1..$#arrays) {
      print OUT '<tr>';
      my @col = split(/,/,$arrays[$i]);
                    
      for my $j (1..$#col) {
        $col[$j] =~ s/"//g;
        my $td = ($i==1)? "th" : "td";
        print OUT qq!<$td align="left">$col[$j]</$td>!;
      };
      print OUT "</tr>\n";      
    };
    print OUT "</table>&nbsp;<br>\n";
  };
}
print OUT "</body></html>";
close OUT;

#-------------------------------------
# This subroutine split text file to 
# number of arrays for data processing
# -------------------------------------
sub build_hash{
  
  my $infile = shift;
  my %data;
  my $last ='';
  open my $ifh,'<',$infile or die "$!";
  while (my $line=<$ifh>) { 
    chomp $line; 
    if ( substr($line,0,2) eq '"$' 
      || substr($line,0,1) eq '$') { 
      $last = $line; 
    } 
    push @{$data{$last}},$line;   
  }
  close $ifh;
  return %data;
}

[download]
poj

In reply to Re^3: split the text file to multiple arrays by poj
in thread split the text file to multiple arrays by mhoang

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.