[PERL] Problemino sintassi....

[imported_teckste]

Ciao a tutti...rieccomi con un altro problema di sintassi in perl...pur sapendo solo a livello meno di basilare questo linguaggio..ho provato a creare questo programmino..ma non funziona...e nn capisco cosa sbaglio...
Grazie a tutti dell'aiuto

print "ISTRUZIONI: scrivere un numero ogni volta ke viene rikiesto fino a un massimo di 5 numeri\n se i numeri con cui fare la media sono minori scrivere quit\n\n Benvenuto nel calcolatore di media!\n Inserisci il numero:  ";
$n=<STDIN>;
chomp($n);
if ($n eq 'quit') {
print "Premere invio per uscire.";
<>;
}
print "Inserisci secondo numero:  "
$n2=<STDIN>;
chomp($n2);
if ($n2 eq 'quit') {
print "#########\n MEDIA: $n";
<>;
}
print "Inserisci terzo numero:  ";
$n3=<STDIN>;
chomp($n3);
if ($n3 eq 'quit') {
$ris=($n+$n2)/2;
print "#########\n MEDIA: $ris";
<>;
}
print "Inserisci quarto numero:  "
$n4=<STDIN>;
chomp($n4);
if ($n4 eq 'quit'){
$ris=($n+$n2+$n3)/3;
print "#########\n MEDIA: $ris";
<>;
print "Inserisci quinto numero:  ";
$n5=<STDIN>;
chomp($n5);
if ($n5 eq 'quit') {
$ris=($n+$n2+$n3+$4)/4;
print "#########\n MEDIA: $ris";
<>;
exit(0);
} else {
$ris=($n+$n2+$n3+$4+$5)/5;
print "#########\n MEDIA: $ris";
<>;
}

 

[33dex]

ma hai provato a runnarlo?

spero di si...basta leggere l'output degli errori...

mancano due ";" alla fine di due print (linea 9 e 24) e una graffa di chiusura (linea 42)

corretti quegli errori di distrazione và tutto

 

[orakool]

Chiudo e prego di smetterla di prendere questo forum come una mandria di schiavetti il quale lavoro è eseguire i source e capire gli errori stupidi dei source degli altri.