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>
