Differenze tra le versioni di "Perl/Istruzioni"

Jump to navigation Jump to search
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

Menu di navigazione