Perl Script to “Compile” the Data (2 of 3)

while (<INFILE>) {

if ( /STUDENT_USERNAME=([^\;]+);\s/){$student_username =$1; }

else { $student_username =""; }

if ( /PROJECT_NAME=([^\;]+);\s/){$projectname =$1; }

else { $projectname =""; }

if ( /PROPOSAL_URL=([^\;]+);\s/){$proposal_url =$1; }

else { $proposal_url =""; }

if ( /PARTNER=([^\;]+);\s/){$partner =$1; }

else { $partner =""; }

if ( /UNCERTAIN=([^\;]+);\s/){$uncertain =$1; }

else { $uncertain =""; }

if ( /DATE=([^\;]+);/){$date = $1; }

else { $date = ""; }

if ($proposal_url =~ /http/ ) {}

else { $proposal_url = "http://" . $proposal_url; }

if ($uncertain eq "No") { $uncertain = ""; }

else { $uncertain = "Uncertain"; }