Codice PeRL Demenziale.

Adesso vi mostrerò un Codice del linguaggio perl molto demenziale.

Source:

#!/usr/local/bin/perl
# giorni.pl: dato il nome di un mese ne stampa il
#    numero di giorni

%giorni = ('gennaio', 31, 'febbraio', 28, 'marzo', 31, 'aprile', 30,
           'maggio', 31, 'giugno', 30, 'luglio', 31, 'agosto', 31,
           'settembre', 30, 'ottobre', 31, 'novembre', 30,
           'dicembre', 31);
print "mese: ";
$mese = <STDIN>;
chop($mese);
print "$mese ha $giorni{$mese} giorni.\n";

Questo tipo di Codice si riferisce ad un Array con il simbolo associativo  %.

Il singolo elemento dell'array associativo è individuato dalla chiave associata;
Così il terzo elemento dell'array associativo definito nell'esempio precedente  è individuato dall'espressione $giorni{'marzo'}.

Credo che questo tipo di codice sia molto elementare e ottimo per intraprendere il viaggio della Conoscenza di questo linguaggio .