good day monks , I need to create a button that will increment value. I am lost. need help. please
basically submit will increment the value $var by 1
need help and guidance , i am a newbie
#!C:\strawberry\perl\bin\perl.exe use CGI::Session; use CGI; use CGI":standard"; use CGI::Carp qw(fatalsToBrowser); $| = 1; print header; print start_html; my $cgi = new CGI; my $Session = new CGI::Session( undef, $cgi, {Directory=>'/tmp'} ); $var =0; $limit=100; $submit = param("Submit"); print <<HTML; <form> <input type="submit" name="Submit" value="add" ><br/></input> </form> HTML if ($submit eq 'add'){ print "var is".$var; if ($var < $limit){ $var++; print "add".$var; $Session->{'MyVar'} = $var; print "value is".$var; $var = $Session->{'MyVar'}; print "retrieve".$var."\n"; print "<br/>\n"; } else{ } }else{} print end_html;
In reply to Submit button increment value by JarJarJoe
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |