#!/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]
