Hi Prabhu,
Your guess is right.For each box it should go to a different
link.
For e.g my references are like this. href="https://192.10.11.12.
I want my code to be slightly simple.
Thanx,
Alok.
-----Original Message-----
From: Prabu [mailto:[EMAIL PROTECTED]
Sent: Thursday, June 22, 2006 1:51 PM
To: Nath, Alok (STSD)
Cc: beginners@perl.org
Subject: Re: Trying to add hyperlink
Hello Alok,
Fine....But each box needs to go to different link right.....So it
should be specified in each box ......
If not can u a give me little more detailed requirement like on clicking
the link in box where it should go.....and so...
--
Prabu.M.A
When I was born I was so surprised
I didnt talk for a period and half
-Gracie Allen
Nath, Alok (STSD) wrote:
> Hi Prabhu,
> Is there any simple way of doing it.Bcos this looks like user
> has to type a lot.
> Perl is known for its simplicity I suppose.
>
> Thanx,
> Alok.
>
> -----Original Message-----
> From: Prabu [mailto:[EMAIL PROTECTED]
> Sent: Thursday, June 22, 2006 12:06 PM
> To: Nath, Alok (STSD)
> Cc: beginners@perl.org
> Subject: Re: Trying to add hyperlink
>
> 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();
>
>
> --
> Prabu.M.A
> When I was born I was so surprised
> I didnt talk for a period and half
> -Gracie Allen
>
> Nath, Alok (STSD) wrote:
>
>> Hi,
>> I was trying to add a hyperlink to each of the boxes but it was
>>
> not
>
>> putting
>> it in the right place.Can anyone help me in this regard ?
>>
>> #!/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(['','Network Switch','Bay 1','Bay 2','Bay 3' ,'Network
>> Switch' ]),
>> th('Enclosure 1').td(['Bl20p G2','yes','yes']),
>> th('Enclosure 2').td(['no','no','yes'])
>> ]
>> )
>> );
>>
>> end_html();
>>
>>
>> Also can anyone point me the links for Perl CGI tutorials with
>> emphasis on
>> handling tables and forms.
>>
>> Thanx,
>> Alok.
>>
>>
>>
>>
>
>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
