Help for this page

Select Code to Download


  1. or download this
    my($TN,$Question,$AnswerA,$AnswerB,$AnswerC,$AnswerD,$Correct)=...
    
  2. or download this
    foreach my $element(@Array){
       chomp $element;
       # define $STH as you did
       $STH->execute(split/\|/,$element,8);
    }