Kort kode køre mig nødder.

daddygrant · #1 (**permalink**) 02-09-2009

Hej gutter, jeg forsøger at lære perl og har en simpel regnemaskine, jeg forsøger at køre, men jeg får fejl runaway multi-line. Kan nogen point denne rookie i den rigtige retning.

# # #

print 'Velkommen til Calculator';
print "Kunne du tænke dig at komme ind på lommeregneren? Indtast y eller n ';
$ run \u003d <stdin>;
chomp $ køre;
while ($ køre \u003d\u003d y)
(
(
print 'Tilføj \u003d a | subtraheres \u003d s | Multiplicer \u003d m | Divider \u003d d | eksponent \u003d e | Mod \u003d O';
print "Indtast de tilsvarende tal til caluclation, der skal udføres: ';
$ calc \u003d <stdin>;
chomp $ calc;
print "Indtast den første værdi: ';
$ A \u003d <stdin>;
chomp $ A;
print "Indtast den anden værdi: ';
$ B \u003d <stdin>;
chomp $ B;

if ($ calc \u003d\u003d a)
(
$ answer \u003d $ A + $ B;
)
elsif ($ calc \u003d\u003d r)
(
$ 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 er $ svar."
)
print "Kunne du tænke dig at udføre en anden beregning? Indtast y eller n ';
$ run \u003d <stdin>;
chomp \u003d $ køre;
)

print 'Ansøgningen er nu henlagt. «

# # #

jim McNamara · #2 (**permalink**) 02-09-2009

Code:

if ($answer eq "a" )

strings brug eq eller ne, etc til sammenligning

daddygrant · #3 (**permalink**) 02-09-2009

Samme fejl, når jeg erstatte \u003d\u003d med eq.

Citat:

if ($ calc \u003d\u003d a)

avronius · #4 (**permalink**) 02-09-2009

Strengen sammenligning ville være for y / n - ikke matematik

daddygrant · #5 (**permalink**) 02-09-2009

Jeg ændre værdierne for sammenligning fra strengen til heltal men jeg stadig får den samme fejl. "Syntaksfejl .. kunne være en runaway multi-line"

Code:

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

pludi · #6 (**permalink**) 02-09-2009

Dette bør arbejde

Code:

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

Noter for fremtiden

Altid starte din Perl kode med brug advarsler brug strenge; Det kan hjælpe dig fange en masse fejl, før de bliver bugs.
Please post flere af fejl output næste gang (f.eks "(kan være en runaway multi-line)) strengen begynder på linje 22)" i stedet for "kan være en runaway multi-line"
Hvis du vil have en snor i Perl, Brug "eller" at vedlægge, og eq at teste dem
[+] Udskrive ikke vedhæfte en newline at det output, du bliver nødt til at tilføje, at selv

avronius · #7 (**permalink**) 02-09-2009

Jeg vil anbefale, at du opretter en delrutinen forvandleTil med din regnemaskinefunktion indeni.
Har dit script spørge hvis brugeren ønsker at komme ind på regnemaskinen - kalde delrutinen forvandleTil.
Har dit script spørge hvis brugeren ønsker at fortsætte - hvis ja, så ring til delrutinen forvandleTil. Hvis nej, udrejse.

Edit: Jeg var se på format ikke syntaks ... dårlige Avron!

Mere UNIX og Linux Forum Emner du måske kan finde Helpful
Tråd	Thread Starter	Forum	Svar	Last Post
Paastande hjælpe .. dette er kørsel mig skør	hckygoli31	Shell Programmering og Scripting	0	05-13-2008 04:59 AM
Test-kørsel OpenOffice.org 3.0	iBot	UNIX og Linux RSS Nyheder	0	04-04-2008 11:10 AM
Dumme spørgsmål, men dens kørsel mig nødder	jepombar	UNIX for dummyer Spørgsmål & svar	3	07-03-2007 02:32 PM
Simpel test kørsel mig gal!	alarmcall	Shell Programmering og Scripting	6	10-27-2003 10:29 AM
UNIX køre mig skør	Tendernisin	UNIX for dummyer Spørgsmål & svar	1	11-29-2001 10:38 PM

Thread Tools	Søg denne tråd
Vis Printvenlig Version Email denne side	Søg denne tråd: Avanceret søgning
Display Modes	Bedøm denne tråd
Switch to Linear Mode Hybridtilstand Switch to Tråd Mode	Bedøm denne tråd: