#!/usr/bin/perl

while()
{
    my $scelta=&SceltaMenu;
    if($scelta==1)
    {
        &InserisciNota;
    }
    elsif($scelta==2)
    {
        &MostraNote;
    }
    elsif($scelta==3)
    {
        &CancellaNote;
    }
    elsif($scelta==0)
    {
        last;
    }
}

sub SceltaMenu
{
    print "\n";
    print "1.\tInserisci una nuova nota\n";
    print "2.\tMostra le note\n";
    print "3.\tCancella note\n";
    print "\n";
    print "0.\tEsci\n";
    print "\n";
    print "Inserisci la tua scelta: ";
    return <STDIN>;
}

sub InserisciNota
{
    print "\n";
    print "Inserisci una nuova nota: ";
    my $nota=<STDIN>;
    my $data=&InserisciData;
    &AggiornaDatabase($data,$nota);
}

sub MostraNote
{
    print "\n";
    my $data=&InserisciData;
    my $nota=&LeggiDatabase($data);
    print "\n";
    print "Note per $data: $nota\n";
}

sub CancellaNote
{
    print "\n";
    my $data=&InserisciData;
    &AggiornaDatabase($data,"");
}

sub InserisciData
{
    my $data=`date +"%d-%m-%Y"`;
    chomp $data;
    print "Data [$data]: ";
    my $d=<STDIN>;
    chomp $d;
    $data=$d if $d ne "";
    return $data;
}

sub AggiornaDatabase
{
    my ($d,$n)=@_;
    dbmopen(my %DB,"note",0644) or die "Impossibile accedere al database!\n";
    if($d eq "")
    {
        delete($DB{$d})
    }
    else
    {
        $DB{$d}=$n;
    }
    dbmclose(%DB);
}

sub LeggiDatabase
{
    my ($d)=@_;
    dbmopen(my %DB,"note",0644) or die "Impossibile accedere al database!\n";
    my $n=$DB{$d};
    dbmclose(%DB);
    return $n;
}

• SceltaMenu() è la subroutine che si limita a proporre a schermo l'elenco delle voci del menu; una chiamata all'operatore diamante associato all'input da tastiera (STDIN) cattura ciò che l'utente ha digitato, restituendolo al blocco while chiamante che immagazzina il risultato nella variabile $scelta. Questa è usata per stabilire quali subroutine chiamare;
• InserisciNota() è la subroutine che si incarica di richiedere all'utente di inserire il testo di una nuova nota, sempre con <STDIN>, e la data a cui associare la nota stessa, chiamando la subroutine InserisciData(); la memorizzazione vera e propria della coppia chiave-valore (ovvero data-nota) nel database è effettuata nella subroutine AggiornaDatabase();
• MostraNote() è la subroutine che, richiesta la data da usare come chiave mediante una chiamata a InserisciData(), richiama successivamente LeggiDatabase() per ricavare la nota associata, producendo poi l'output corretto;
• CancellaNote() è la subroutine che, nuovamente richiesta la data da usare come chiave, provvede a richiamare la AggiornaDatabase usando la stringa vuota come testo per la nota;
• InserisciData() è la subroutine che richiede la data per cui l'utente desidera inserire, visualizzare o cancellare la nota; come dicevamo, in realtà è la chiave del database, e non è necessario che sia una data. L'uso del comando date tra virgolette oblique consente di ottenere una stringa di testo con la data corrente da usare come valore di default, qualora l'utente rispondesse alla richiesta di input (proposta col solito <STDIN>) semplicemente premendo "invio";
• AggiornaDatabase() è la subroutine che si preoccupa di scrivere sul database; esso è un realtà una normalissima hash, che però viene inizializzata mediante la funzione dbmopen(); essa come primo argomento richiede quale hash si desideri utilizzare (%DB nel nostro caso; si noti che, per convenzione, i nomi delle hash usate come database si scrivono tutti in maiuscolo, anche se non è obbligatorio), come secondo argomento richiede il nome del database (note nel nostro caso), che poi (a meno dell'estensione, che Perl aggiungerà automaticamente) sarà il nome del file su cui viene memorizzato, su disco, il database stesso, e come terzo argomento un codice numerico (in formato ottale, quindi con uno zero come primo carattere e senza virgolette di sorta) identificante i permessi di accesso al file; rimandando ai molti approfondimenti comparsi su Tevac e sul suo Forum in merito all'argomento dei privilegi o dei permessi sui file, ricordo che il codice 0644 dà accesso di lettura e scrittura al proprietario del file, e di sola lettura a tutti gli altri utenti; un altro codice molto usato è 0755 che dà permessi di lettura, scrittura ed esecuzione del file al proprietario, e di lettura ed esecuzione a tutti gli altri utenti. Una volta che la hash %DB è stata inizializzata mediante dbmopen() essa, dal punto di vista del programmatore, è assolutamente indistinguibile da qualunque altra hash; l'accesso ai suoi valori sarà fatto con i soliti modi, ma le modifiche verranno immediatamente applicate non già in memoria, ma sul file su disco specificato a secondo argomento di dbmopen(); da notare che se questo file non esiste, esso verrà creato; la cancellazione di una voce dalla hash non si fa associanto la stringa nulla "" alla rispettiva chiave, ma eliminando la chiave stessa con l'uso della funzione delete. Infine, una chiamata a dbmclose() passando ad argomento la hash %DB chiude l'accesso al database;
• LeggiDatabase() è la subroutine che apre, sempre con dbmopen(), il database, lo importa in una hash, e usa la chiave fornita ad argomento per estrarre e restituire la nota ad essa associata.

my $stringa=pack("a20 i f","Marco Coisson",32,1.81);

my ($nome,$eta,$altezza)=unpack("a20 i f",$stringa);