Hej grabbar jag försöker lära perl och har en enkel kalkylator jag försöker att köra men jag får fel rusning multi-line. Kan någon punkt här rookie i rätt riktning.


# # #

print "Välkommen till Kalkylator"
print "Vill du gå in räknaren? Skriv y eller n ';
$ run \u003d <stdin>;
chomp $ körning;
while ($ köra \u003d\u003d y)
(
(
print "Lägg \u003d en | Subtrahera \u003d s | Multiplicera \u003d m | Divide \u003d d | Exponent \u003d e | Mod \u003d O ';
print "Ange motsvarande antal till caluclation som skall utföras:";
$ calc \u003d <stdin>;
chomp $ calc;
print "Ange första värde:";
$ A \u003d <stdin>;
chomp $ A;
print "Ange andra värde:";
$ B \u003d <stdin>;
chomp $ B;

if ($ calc \u003d\u003d a)
(
$ answer \u003d $ a + $ b;
)
elsif ($ calc \u003d\u003d s)
(
$ answer \u003d $ a - $ b;
)
elsif ($ calc \u003d\u003d m)
(
$ answer \u003d $ A * $ B;
)
elsif ($ calc \u003d\u003d d)
(
$ answer \u003d $ A / $ B;
)
elsif ($ calc \u003d\u003d e)
(
$ answer \u003d $ A ** $ B;
)
elsif ($ calc \u003d\u003d o)
(
$ answer \u003d $ A% $ B;
)
print "Svaret är $ answer."
)
print "Vill du göra en beräkning? Skriv y eller n ';
$ run \u003d <stdin>;
chomp \u003d $ körning;
)


print "Ansökan är nu avslutas."

# # #

if ($answer eq "a" )

Samma fel på när jag ersätta \u003d\u003d med ekv.

Strängen jämförelse skulle vara att y / n - inte matematik

Jag ändra värdena för jämförelse från sträng till heltal men jag fortfarande får samma felmeddelande. "Syntaxfel .. kan vara en skenande multi-line"

print 'Welcome to the Calculator';
print 'Would you like to enter the calculator? Please Type y or n';
$run = <stdin>;
chomp $run;
while ($run == y)
    {
        {    
        print 'Add = 1 | Subtract = 2 | Multiply = 3 | Divide = 4 |Exponent = 5 | Mod = 6 ';
        print 'Enter the corresponding number to the caluclation to be performed:';
        $calc = <stdin>;
        chomp $calc;
        print 'Please enter the first value: ';
        $A = <stdin>;
        chomp $A;
        print 'Please enter the second value: ';
        $B = <stdin>;
        chomp $B;
        
        if($calc == 1)
            {
            $answer = $A + $B;
            }
        elsif($calc == 2)
            {
            $answer = $A - $B;    
            }
        elsif($calc == 3)
            {
            $answer = $A * $B;
            }    
        elsif($calc == 4)
            {
            $answer = $A / $B;
            }    
        elsif($calc == 5)
            {
            $answer = $A ** $B;
            }
        elsif$4calc == 6)
            {
            $answer = $A % $B;
            }
        print "The answer is $answer .";
        }
    print 'Would you like to perform another calculation? Please Type y or n';
    $run = <stdin>;
    chomp = $run;
    }


print 'The application is now terminated.';

Detta bör arbeta

print 'Welcome to the Calculator';
print 'Would you like to enter the calculator? Please Type y or n';
$run = <stdin>;
chomp $run;
while ($run eq "y")
    {
# Not needed        {    
        print 'Add = 1 | Subtract = 2 | Multiply = 3 | Divide = 4 |Exponent = 5 | Mod = 6 ';
        print 'Enter the corresponding number to the caluclation to be performed:';
        $calc = <stdin>;
        chomp $calc;
        print 'Please enter the first value: ';
        $A = <stdin>;
        chomp $A;
        print 'Please enter the second value: ';
        $B = <stdin>;
        chomp $B;
        
        if($calc == 1)
            {
            $answer = $A + $B;
            }
        elsif($calc == 2)
            {
            $answer = $A - $B;    
            }
        elsif($calc == 3)
            {
            $answer = $A * $B;
            }    
        elsif($calc == 4)
            {
            $answer = $A / $B;
            }    
        elsif($calc == 5)
            {
            $answer = $A ** $B;
            }
        elsif$4calc == 6)
            {
            $answer = $A % $B;
            }
        print "The answer is $answer .";
# Not needed        }
    print 'Would you like to perform another calculation? Please Type y or n';
    $run = <stdin>;
    chomp $run;
    }


print 'The application is now terminated.';

Jag skulle rekommendera att du skapar en subrutin med din miniräknare fungerar inuti.
Have your script fråga om användaren vill skriva in räknaren - ringa subrutin.
Have your script be om användaren vill fortsätta - om ja, ringa subrutin. Om nej, avsluta.

Edit: Jag såg format inte syntax ... dålig Avron!