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>