#!C:/perl/bin/perl.exe use CGI; $query = new CGI; $v01= $query->param('v01'); $v02= $query->param('v02'); $v03= $query->param('v03'); $v04= $query->param('v04'); $v05= $query->param('v05'); $lastposition= $query->param('lastposition'); #----------------------- if($lastposition == 0){ $thisposition=1; } #----------------------- if($lastposition==1){ if($v01==1){ $thisposition= 2; } else{ $thisposition=5; } } #----------------------- if($lastposition==2){ $thisposition=3; } #----------------------- if($lastposition==3){ if($v03==1){ $thisposition= 4; } else{ $thisposition=5; } } #----------------------- if($lastposition==4){ $thisposition=5; } #----------------------- if($lastposition==5){ $thisposition=6; } #----------------------- print $query->header; print $query->start_html(-title=>'Branching Pattern Demonstration'); print ""; if ($thisposition != 6){ print "
"; if($thisposition ==1){ print "Are you married?
"; print " No
"; print " Yes
"; $lastposition=1; } if($thisposition==2){ print "How many years have you been married?
"; print " years
"; $lastposition=2; } if($thisposition==3){ print "Do you have any children?
"; print " No
"; print " Yes
"; $lastposition=3; } if($thisposition==4){ print "How many children do you have?
"; print "
"; $lastposition=4; } if($thisposition==5){ print "Are you male or female?
"; print " Male
"; print " Female
"; $lastposition=5; } print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "
"; } #------------------------------- else{ open(INFO, ">>$ENV{'DOCUMENT_ROOT'}/data/skipdemo.txt"); print INFO "$v01, $v02, $v03, $v04, $v05 \n"; close(INFO); print "Thank you for your participation. Your data have been saved.
"; print ""; } print $query->end_html;