Nous allons examiner un script qui ne fonctionne que sous Linux.

Le script affiche le résultat d'une commande externe et c'est pour cette raison que le script ne fonctionne que sous Linux.

Le programme - temp.tcl

#!/usr/bin/env wish
proc view_acpi { } {
set t [ eval exec acpi -t ]
.l configure -text "$t"
update
after 10 view_acpi
}

label .l -text ""
pack .l

view-acpi

Explication

Ligne 1 : on appelle l'interpréteur.

Ligne 2 : on crée une procédure que l'on appelle view_acpi et qui n'a aucun paramètre.

Aperçu