in reply to Re: Big trouble with Perl on IIS6
in thread Big trouble with Perl on IIS6
#!perl use CGI qw /:standard -nph/; $|++; $POST_MAX=100; $DISABLE_UPLOAD=1; print header(); print start_html(-title=>'*modifica',-bgcolor=>"#000099",-text=>"#FF99 +33"); print start_form(-method=>'POST',-action=>url(-relative=>1),-name=>'fo +rm1'); ######## oOOOo #### print 'insert a little number '.url(-relative=>1).br; print textfield(-name=>'numero',-value=>""); print submit(-value=>' crea tabelline'); if (defined param('numero')){&tabell()} ########################################## sub tabell{ ############ "#000000" $x=param('numero'); for $uno(1..$x) { for $due(1..$x) {$array[$uno].=td($uno*$due)} } print table({-title=>'oOOOo',-bgcolor=>"#000000",-border=>1,-border +color=>"red",-width=>"80%", -cellspacing=>"0", -cellpadding=>"0"}, Tr({-align=>'CENTER'},[@array])); } ########################################## print end_html();
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^3: Big trouble with Perl on IIS6
by BrowserUk (Patriarch) on Sep 04, 2007 at 10:22 UTC |