try something like:
my @k = ('Sybase Server','Function','Type','Unix Machine','Location');
print '<table><tr>';
map { print '<td>',$_,"</td>\n"} @k;
print '</tr></table>';
david
Loan Tran wrote:
> #!/usr/bin/perl -w
> @col_header = ('Sybase Server','Function','Type','Unix
> Machine','Location');
> my $num_col_header = @col_header ;
> $td0 = join('<td> </td>',
> @col_header[0..($num_col_header -1)]);
> $td = '<table><tr><td>'."$td0".'</td></tr>';
> print "$td";
>
> # out put:
>
> <table><tr><td>Sybase Server<td> </td>Function<td>
> </td>Type<td> </td>Unix Machine<td> </td>Locatio
> n</td></tr>
>
> Please note that there are 2 unwanted <td> from the
> out put. One is next to Server and one is next to
> Machine. How can I get rid of them? Can my code be
> shortened?
>
> Thanks in advance for your help.
>
> Loan
>
>
>
>
>
> __________________________________________________
> Do you Yahoo!?
> Yahoo! News - Today's headlines
> http://news.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
