On Thu, June 22, 2006 09:25, chen li wrote:
>
>
> --- Prabu <[EMAIL PROTECTED]> wrote:
>
>> Hello,
>>
>> Hope this is your need...
>>
>> #!/usr/bin/perl -w
>> use warnings ;
>>
>> use CGI qw/:standard/;
>> print header, start_html("Stsd ILO Links"), h1("Stsd
>> ILO Links") ;
>>
>> print table({-border=>undef,,-width=>'75%',
>> -height=>'70%'},
>> caption(strong('Web Page Under construction?')),
>> Tr({-align=>CENTER,-valign=>TOP},
>> [
>> th(['','<A HREF="#">Network Switch</A>','<A
>> HREF="#">Bay 1</A>','<A
>> HREF="#">Bay 2</A>','<A HREF="#">Bay 3</A>' ,'<A
>> HREF="#">Network
>> Switch</A>' ]),
>> th('<A HREF="#">Enclosure 1</A>').td(['<A
>> HREF="#">Bl20p G2</A>','<A
>> HREF="#">yes</A>','<A HREF="#">yes</A>']),
>> th('<A HREF="#">Enclosure 2</A>').td(['<A
>> HREF="#">no</A>','<A
>> HREF="#">no</A>','<A HREF="#">yes</A>'])
>> ]
>> )
>> );
>>
>> end_html();
>
> Hi all,
>
> How to convert the format above into an OOP style when
> adding a hyperlink? I am afraid many people might
> have typo if they follow the format above.
THis might help:
http://search.cpan.org/src/LDS/CGI.pm-3.08/cgi_docs.html
--
Scott
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
