Re: Trying to add hyperlink

[Prabu]

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>