#!C:/perl/bin/perl.exe use CGI; $query = new CGI; $trials= 4; $previoussec= $query->param('trialsec'); $previousmin= $query->param('trialmin'); $previoushour= $query->param('trialhour'); $rt00= $query->param('rt00'); $rt01= $query->param('rt01'); $rt02= $query->param('rt02'); $rt03= $query->param('rt03'); $trialnumber= $query->param('trialnumber'); #--------------------------- @varnum = ("00","01","02","03"); @stimuli= ("happy", "lonely", "secure", "anxious"); ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); #--------------------------- if($trialnumber != 0){ $currenthour = $hour; $currentmin = $min; $currentsec = $sec; $rt= 0; # subtract seconds if($previoussec > $currentsec){ $secdiff = ((60 + $currentsec) - $previoussec); $currentmin = $currentmin - 1; } if($previoussec <= $currentsec){ $secdiff = $currentsec - $previoussec; } # subtract minutes if($previousmin > $currentmin){ $mindiff = ((60 + $currentmin) - $previousmin); $currenthour = $currenthour - 1; } if($previousmin <= $currentmin){ $mindiff = $currentmin - $previousmin; } # subtract hours if($previoushour > $currenthour){ $hourdiff = ((24 + $currenthour) - $previoushour); } if($previoushour <= $hour){ $hourdiff = $currenthour - $previoushour; } # convert difference to seconds $rt = (3600*$hourdiff)+(60*$mindiff)+($secdiff); $temp = "rt" . $varnum[($trialnumber - 1)]; $$temp = $rt; } else{ $trialnumber = 0; } print $query->header; print $query->start_html(-title=>'Trials'); print ""; if($trialnumber >= 1){ print "Time to recall on previous trial (seconds): $rt.
"; } #--------------------------- if($trialnumber < $trials ){ print "
"; $stimulus= $stimuli[$trialnumber]; print "
Recall a time when you felt:

"; print "$stimulus

"; print "Press the button when you have a specific experience in mind.

"; print "
"; $count= $trialnumber + 1; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "
"; } else{ print "Thank you. You have finished all trials.
"; print "Here are your response times:

"; print "$stimuli[0] : $rt00 seconds
"; print "$stimuli[1] : $rt01 seconds
"; print "$stimuli[2] : $rt02 seconds
"; print "$stimuli[3] : $rt03 seconds
"; } #--------------------------- print $query->end_html;