I didn't test it, but this should work, right?
-----Original Message-----
From: loan tran [mailto:[EMAIL PROTECTED]]
Sent: Thursday, September 12, 2002 4:02 PM
To: [EMAIL PROTECTED]
Subject: Can my code be shortened?
#!/usr/bin/perl -w
@col_header = ('Sybase Server','Function','Type','Unix
Machine','Location');
foreach $headIt (@col_header) {
$headIt =~ s!(.*)!\n\t<td>$1</td>!;
}
print "<table>@col_header\n</table>";
# out put:
<table>
<tr>
<td>Sybase Server<td>
</td>Function<td>
</td>Type<td>
</td>Unix Machine<td>
</td>Location</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]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
