Perl problem:(

[t]

Hello all:)

You have been greaet helps to me in the past, and im hoping you can help now:) A 
friend of mine is
in a class learning perl and her script keeps getting an error that there is a bracket 
missing on
line 190. When i looked at it, all i could see was the nested statement problem i had 
at one time.
Do you think that is the problem? and if so, what would be the best way to fix it? I 
want her to
be able to learn it, not to have it done for her, but i want to give her the best 
advice possible:

Script:::

#!/usr/bin/perl
#
#   lab3.pl
#

my @scorearray;

sub getinformation()
{

        local $score = 0;
        local $total = 0;
        local $ctr = 0;
        local $rpt_ctr = 0;
        open (OUTFILE, ">>info.txt")
                || die "cannot open info.txt $!";

        local $var = "bad";
        while ($var eq "bad")
        {
                print "enter student's first name: ";
                $firstname = <STDIN>;
                chop ($firstname);
                $length = length($firstname);
                if (!$length)
                {
                        print "Not a valid First Name, try again.\n";
                        next;
                {
                if($length > 20)
                {
                        print "Not a valid First Name, try again. \n";
                        next;
                }
                if($length)
                {
                        $var = "good";
                        print (OUTFILE "$firstname|");
                }
        }       

        local $var1 = "bad";
        while ($var1 eq "bad")
        {
        
                print "enter student's last name: ";
                $lastname = <STDIN>;
                chop ($lastname);

                if (!$length1)
                {
                        print "Not a valid last name, try again. \n";
                        next;
                }
                if($length1 > 20)
                {
                        print "Not a valid last name, try again. \n";
                        next;
                }
                if($length1)
                {
                        $var1 = "good";
                        print(OUTFILE "$lastname|");
                }
        }
        
        local $var2 = "bad";
        while($var2 = "bad")
        
        {
                print "enter student's SSN:";
                $ssn = <STDIN>;
                chop($ssn);

                $length2=length($ssn);
                if(!$length2)
                {
                        print "Not a valid Social Security Number, try again.\n";
                        next;
                }
                $ssn =~ s/[^\d]//g;
                if($ssn !~ m/^\d{9}$/)
                {
                        print "Not a valid Social Security Number, try again.\n";
                        next;
                }
                if($ssn =~ m/^\d{9}$/)
                {
                        $var2 = "good";
                        print(OUTFILE "$ssn");
                }
        }

        
        local $ctr1 = 1;
        while ($ctr < 4) 
        {
                
                print "enter a test score $ctr1: ";
                $score = <STDIN>;
                chop ($score);
                
                if ($score eq "q")
                {
                        last;
                }
                
                local $error = "true";
                testscore($score);

                if ($error eq "false")
                {
                        next;
                }
                else
                {
                $total += $score;
                $ctr++;
                $ctr1++;
                $scorearray[$ctr]=$score;
                }
        
        };

        while($rpt_ctr <= $ctr)
        {
                print (OUTFILE "$scorearray[$rpt_ctr]");

                if($rpt_ctr < 3)
                {
                        print(OUTFILE "|");
                }

                $rpt_ctr++;     
        }

        print (OUTFILE "\n");
        getscore();
};

sub getscore()
{
        local $display = 4 - $ctr;
        local $avg = $total / 4;
        print "Score total is $total \n";
        print "number of scores entered is $ctr \n";
        print "Score Average is $avg \n";
        print "$firstname is missing $display tests\n";
        warnings();
};

sub testscore()
{
        if ($score > 100)
        {
                print "invalid score, please make sure the score is less than or equal 
to 100\n";
                $error = "false";
        }
        if ($score < 0)
        {
                print "invalid score, please make sure the score is greater than or 
equal to 0\n";
                $error = "false";
        }
};

sub warnings()
{
        if ($avg <= 60)
        {
                print "Grim Warning, $firstname !";
        }
        elsif ($avg <= 70)
        {
                print "Uh-oh! You maybe in trouble, $firstname !";
        }
        elsif ($avg <= 80)
        {
                print "Good going $firstname \n You have a satisfactory grade \n";
        }
        elsif ($avg <= 90)
        {
                print "Way to go $firstname \n You have a satisfactory grade \n";
        }
        else
        {
                print "Way to go $firstname \n You are AWESOME!\n";
        }
};
        
getinformation();


Thanks in Advance:):):):)



__________________________________________________
Do you Yahoo!?
Yahoo! Shopping - Send Flowers for Valentine's Day
http://shopping.yahoo.com

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]