open(DATA,"c:/MLB_boxscore.TXT") or die "Can't open file"; print "<html><head><title>My page</title></head><body>"; print "<table>"; $linescore = 0; if($linescore) { last if /^\s*$/; chomp; push @LS, split('\|',$_); print "<tr>"; } elsif(/^LINESCORE/) { $linescore = 1 } { print "<td>$linescore</td>"; print "</tr>"; } print "</table></body></html>"; close DATA;
In reply to Printing a Text File by Perl Newby
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |