Creating a table from text delimited by newlines

[jerrygarciuh]

This little snippet is close to what I want. It prints dark rows in the table if the line of the text file just has a newline, but it takes each line of text and makes it its own row. What I want to do is take all the text up to the next newline into one row, then print the dark rows for the newline(s). How can I modify this to keep reading, I know it needs to be an until or something like that but I can't seem to figure it out.
TIA
jg

while (<FH>) {
    chomp($_);
    if (/(.)/) {
        print "<TR><TD>Checkbox</TD><TD>$_ </TD></TR>\n";
    } else {
        print "<TR bgcolor=#000066><TD WIDTH=298>&nbsp;</TD><TD WIDTH=
+298>&nbsp;</TD></TR>\n";
    }
}
close FH;

_____________________________________________________
If it gets a little bit out of hand sometimes, don't let it fool you into thinkin' you don't care.TvZ

[Fastolfe]

Maybe something simple/stupid like:

use CGI ':standard';
my $did_blank;

while (<FH>) {
   chomp;
   if ($_) {
      print Tr(td("Checkbox"), td($_));
      undef $did_blank;
   } else {
      print Tr({-bgcolor => '#006'}, td({-width=>298}, '&nbsp;') x 2)
         unless $did_blank++;
   }
}

[chipmunk]

I'm not completely certain what you want the result to be, but I think this code does something like what you're looking for:

$line = '';
while (<FH>) {
  chomp;
  if (length) {
    $line .= "$_ ";
  } else {
    print <<"EOHTML";
<TR>
  <TD>Checkbox</TD>
  <TD>$line</TD>
</TR>
<TR bgcolor=#000066><TD WIDTH=298>&nbsp;</TD><TD WIDTH=298>&nbsp;</TD>
+</TR>
EOHTML
    $line = '';
  }
}
if (length $line) {
  print <<"EOHTML";
<TR>
  <TD>Checkbox</TD>
  <TD>$line</TD>
</TR>
EOHTML
}

Note that I replaced the regex with a call to length. I think this is a clearer way to check whether the line contained any text (after chomping, of course).

Your question would be clearer with sample input and output...

[Trimbach]

...or you could be clever. As I understand it you want all the text up to a blank line in a single row, with each blank row outputting a darker table row. If that's the task this'll work:

my $file = join "", <FH>;
my @rows = split /^\n/m, $file;

for (@rows) {
    print Tr(td(["Checkboxes", split "\n"]));
    print Tr({-bgcolor=>"#000066"}, td({-width=>298}, ["&nbsp;", "&nbs
+p;"]));
    print "\n";
}

This is reason #27 why CGI.pm's HTML generation functions are just so damn cool when it comes to outputting truly dynamic HTML. If you haven't meditated on how Tr(td(\@array)) works you should consult the CGI.pm documentation and be enlightened.

Gary Blackburn
Trained Killer

[physi]

Well I think you like to seperate Textblocks by a darkline, so this may also work:


$/="\n\n";                          #set the input Record seperator to
+ a double newline

while (<FH>) {
  next if /^\n+$/;                  #ignore lines which contains only 
+newlines
  print "<TR><TD>Checkbox</TD>
         <TD>$_ </TD></TR>\n        #print the textblock with an ...
  print  <TR bgcolor=#000066>       #apending darkline
         <TD WIDTH=298>&nbsp;</TD>
         <TD WIDTH=298>&nbsp;</TD>
         </TR>\n";                  
}
close FH;


-----------------------------------
--the good, the bad and the physi--
-----------------------------------