#!/perl/bin/perl use CGI qw/:standard/; use CGI::Carp qw/fatalsToBrowser/; use strict; use CGI; my $got_img=param('myimage'); my $count; print header(); print "test<br>"; print "<form action=check.pl\n"; print "<br><input type=checkbox name=myimage value=1>1<br>\n"; print "<input type=checkbox name=myimage value=2>2<br>\n"; print "<input type=checkbox name=myimage value=3>3<br>\n"; print "<input type=checkbox name=myimage value=4>4<br>\n"; print "<input type=checkbox name=myimage value=5>5<br>\n"; print "<input type=submit value=submit><br>\n"; print "** $got_img **<br>"; for ($count=0; $count<$got_img; $count++) { print "<b>$got_img</b> \n"; }
In reply to Re^2: Images display
by Anonymous Monk
in thread Images display
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |