Helló srácok én próbálok tanulni perl és egy egyszerű számológép Én próbál futni, de én hiba szökött multi-line. Tud valaki pont ezt újonc a helyes irányba.


# # #

print "Üdvözöljük a Számológép";
print "Szeretné, hogy a számológép? Kérem írja y vagy n ";
$ run \u003d <stdin>;
chomp $ fut;
while ($ fut \u003d\u003d y)
(
(
print "Add \u003d a | \u003d Kivonás s | Szorzás \u003d m | Divide \u003d d | \u003d Exponens e | Mod \u003d O ';
print "Adja meg a megfelelő számot a caluclation kell végezni:";
$ calc \u003d <stdin>;
chomp $ calc;
print "Kérem adja meg az első érték:";
$ A \u003d <stdin>;
chomp $ a;
print "Adja meg a második érték:";
$ 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 "A válasz: $ válasz."
)
print "Szeretné újabb számítás? Kérem írja y vagy n ";
$ run \u003d <stdin>;
chomp \u003d $ fut;
)


print "Az alkalmazás már megszűnik."

# # #

if ($answer eq "a" )

Ugyanaz a hiba, amikor a helyébe a \u003d\u003d eq.

A karakterlánc-összehasonlítás az lenne az y / n - nem a matematika

Változtatható értékek összehasonlítás a karakterlánc az egész, de még mindig ugyanaz a hiba. "Szintaktikai hiba .. lehet egy elszabadult 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.';

Ez kell a munkát

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.';

Szerintem javasoljuk, hogy hozzon létre egy subroutine meg számológép funkciók belül.
Have szkriptjeid kérni, ha a felhasználó azt akarja, hogy a számológép - hívja fel a subroutine.
Have szkriptjeid kérni, ha a felhasználó azt akarja, hogy továbbra is - ha igen, hívja a subroutine. Ha nem, a kilépéshez.

Edit: én néztem formátum nem szintaktika ... Rossz Avron!