195
contributi
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:
%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} ) ;
| |||