Perl/Istruzioni: differenze tra le versioni
Contenuto cancellato Contenuto aggiunto
Nessun oggetto della modifica |
Nessun oggetto della modifica |
||
Riga 28:
Per puro esempio stabiliamo che l'età sia l'unico parametro che faccia passare da una definizione all'altra.
Pertanto di potrebbe definire queste soglie:
%stadio = ( bambino => 14
Riga 47:
, adulto => 60
, vecchio => 75 );
$eta_ora = 27;
print "all'eta' di $eta_ora sei un bambino \n" if ( $eta_ora < 14 ) ;
# ma meglio:
Riga 60:
$eta_ora = 27;
if ( $eta_ora < $stadio{bambino} ) { print "all'eta' di $eta_ora sei un bambino \n"; }
Riga 72:
, adulto => 60
, vecchio => 75 );
$eta_ora = 27;
if ( $eta_ora >= $stadio{vecchio} )
{
Line 196 ⟶ 195:
$eta_ora = 27;
print "all'eta' di $eta_ora NON sei un bambino \n" unless ( $eta_ora < 14 ) ;
print "all'eta' di $eta_ora NON sei un bambino \n" unless ( $eta_ora < $stadio{bambino} ) ;
| |||