Differenze tra le versioni di "Perl/Istruzioni"

nessun oggetto della modifica
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:
bambino fino a 14, ragazzo da 14 a 17 , giovane da 17 a 23, adulto da 23 a 60, vecchio da 60 a 75, anziano oltre 75
 
%stadio = ( bambino => 14
, adulto => 60
, vecchio => 75 );
$eta_ora = 27;
 
print "all'eta' di $eta_ora sei un bambino \n" if ( $eta_ora < 14 ) ;
# ma meglio:
 
$eta_ora = 27;
 
if ( $eta_ora < $stadio{bambino} ) { print "all'eta' di $eta_ora sei un bambino \n"; }
 
, adulto => 60
, vecchio => 75 );
 
$eta_ora = 27;
 
if ( $eta_ora >= $stadio{vecchio} )
{
 
$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} ) ;
195

contributi