Programmazione distribuita in Tcl/Tk
Tcl/Tk è un linguaggio di programmazione interpretato ormai scarsamente utilizzato,
dopo aver avuto una notevole popolarità verso la fine degli anni '90.
In questa pagina si mostrano alcuni semplici programmi (script) Tcl che comunicano attraverso
i protocolli di Internet (TCP ed UDP su IP).
Negli esempi di questa pagina si userà una versione del linguaggio ormai obsoleta (Tcl 8.3).
Fonti di informazione e repository software
Tcl UDP
Tcl UDP è una libreria sviluppata per consentire l'uso di socket UDP in Tcl.
Installazione:
- Installare Tcl/Tk eseguendo Tcl834.exe ed indicando come directory di installazione C:\tcl
- Inserire la directory C:\tcl\bin nella lista di directory assegnata alla variabile di ambiente PATH
- Scompattare il file udp1011-win32.zip e spostare la cartella udp1.0.11 in C:\tcl\lib\tcl8.3
Per verificare la corretta installazione, eseguire wish83.exe oppure tclsh83.exe e dare il comando package require udp
.
L'output ottenuto è il numero di versione del package Tcl UDP, cioè 1.0.11
UDP Server e Client (unicast)
Sorgenti dei programmi:
Scaricare i file tcl in una cartella locale (es. C:\tcl\programmi).
In una finestra di prompt di comandi di Windows, eseguire:
cd C:\tcl\programmi
tclsh83 udp-server.tcl 9999 1
In un'altra finestra di prompt di comandi di Windows, eseguire:
cd C:\tcl\programmi
tclsh83 udp-client.tcl 127.0.0.1 9999 "QUI QUO QUA"
Il programma client manda la stringa "QUI QUO QUA" al server e ne riceve l'eco.
Se il programma client manda la stringa "QUIT", il programma server termina dopo aver mandato l'eco.
Altrimenti, il server rimane attivo.

Screenshot del server UDP.

Screenshot del client UDP.
UDP Listener e Sender (multicast)
Sorgenti dei programmi:
Scaricare i file tcl in una cartella locale (es. C:\tcl\programmi).
In due distinte finestre di prompt di comandi di Windows, eseguire:
cd C:\tcl\programmi
tclsh83 mcast-listener.tcl 224.100.100.100 6000 1
In un'altra finestra di prompt di comandi di Windows, eseguire:
cd C:\tcl\programmi
tclsh83 mcast-sender.tcl 224.100.100.100 6000 "QUI QUO QUA"
Il programma sender manda la stringa "QUI QUO QUA" al gruppo multicast 224.100.100.100.
Ciascun listener manda in eco la stessa stringa al sender, il quale stampa i messaggi di eco che gli pervengono nei successivi 5 secondi.
Se il programma sender manda la stringa "QUIT", i listener terminano dopo aver mandato l'eco.
Altrimenti, i listener rimangono attivi.

Screenshot del listener UDP multicast (prima istanza).

Screenshot del listener UDP multicast (seconda istanza).

Screenshot del sender UDP multicast.
roberto.canonico at unina.it
Ultimo aggiornamento: 19 novembre 2015