[Perl] Operatori di Confronto

[Gear2ndsx]

Buon giorno a tutti

use strict;
use warnings;
$voto = 10
my $mesg = ($voto == 10) ? 'Dieci e lode!'
: ($voto == 9) ? 'Benissimo'
: ($voto == 2) ? 'Non ci siamo proprio' ;

print $mesg ;

Come mai non funziona ?

[Mich_]

manca un puntoevirgola
manca un \n nel print

[Gear2ndsx]

use strict;
use warnings;
$voto = 10 ;
my $mesg = ($voto == 10) ? 'Dieci e lode!'
: ($voto == 9) ? 'Benissimo'
: ($voto == 2) ? 'Non ci siamo proprio' ;

print $mesg \n  ;

Così? non funziona lo stesso ;( . . .

[Gear2ndsx]

Risolto. Manca il "my". Ecco il codice funzionante :

use strict;
use warnings;
my $voto = 1;
my $mesg = ( $voto == 1 ) ?  "Dieci e lode!"
                        : ( $voto == 2 ) ? "Benissimo"
                        : ( $voto == 3 ) ? "Non ci siamo proprio" 
                        :                               "Nulla da dire";

print $mesg;