Programmation Tcl sur Un routeur Cisco

Tool Command Language (abréviation : Tcl)

Tcl et Tk sont des scripts et des outils de programmation initialement conçu à partir de la fin des années 80 par John Ousterhout et son équipe à l'université de Berkeley. Il s'inspire principalement des langages C, Tcl est un Language interprété multi-plateforme,. Cisco a intégré Tcl dans le logiciel IOS de Cisco dans les routeurs, les scripts Tcl doit être exécuté à partir tclsh, qui est un mode de commande EXEC exigeant permettre l'accès.
       Tcl est facile à apprendre, surtout pour un habitué du langage C ou quelqu'un qui connaît un shell (http://fr.wikipedia.org/wiki/Shell_%28informatique%29)

Voici quelque exemple

Simple 1 :

puts "Bonjour tous Le monde \n"   // Voilà comment cela fonctionne dans la pratique:

Tcl_Router(tcl)#puts " Bonjour tous Le monde \n"
Bonjour tous Le monde

Tcl_Router(tcl)#

* Notez que le "\ n" a provoqué un saut de ligne, et met également automatiquement fourni une

Simple 2 :

Tester la conectivité entre un routeur et plusieurs dispositifs sur un réseau ou bien tester le bon fonctionnement des interfaces du routeur.

                                  

                                   R1# tclsh

R1(tcl)#

R1(tcl)#foreach address {

+>(tcl)#172.16.1.1           

+>(tcl)#172.16.3.1

+>(tcl)#172.16.13.1

+>(tcl)#172.16.13.3

+>(tcl)#192.168.12.1

+>(tcl)#192.168.12.2

+>(tcl)#192.168.23.2

+>(tcl)#192.168.23.3

+>(tcl)#} {          

+>(tcl)#ping $address }

Résultats :

Sending 5, 100-byte ICMP Echos to 172.16.1.1, timeout is 2 seconds:

!!!!!

Success rate is 100 percent (5/5), round-trip min/avg/max = 1/1/4 ms

Type escape sequence to abort.

Sending 5, 100-byte ICMP Echos to 172.16.3.1, timeout is 2 seconds:

!!!!!

Success rate is 100 percent (5/5), round-trip min/avg/max = 68/68/72 ms

Type escape sequence to abort.

Sending 5, 100-byte ICMP Echos to 172.16.13.1, timeout is 2 seconds:

!!!!!

Success rate is 100 percent (5/5), round-trip min/avg/max = 1/1/1 ms

Type escape sequence to abort.

Sending 5, 100-byte ICMP Echos to 172.16.13.3, timeout is 2 seconds:

!!!!!

Success rate is 100 percent (5/5), round-trip min/avg/max = 68/69/72 ms

Type escape sequence to abort.

Sending 5, 100-byte ICMP Echos to 192.168.12.1, timeout is 2 seconds:

!!!!!

Success rate is 100 percent (5/5), round-trip min/avg/max = 56/56/60 ms

Type escape sequence to abort.

Sending 5, 100-byte ICMP Echos to 192.168.12.2, timeout is 2 seconds:

Tcl script CISCO

!!!!!

Success rate is 100 percent (5/5), round-trip min/avg/max = 28/28/32 ms

Type escape sequence to abort.

Sending 5, 100-byte ICMP Echos to 192.168.23.2, timeout is 2 seconds:

!!!!!

Success rate is 100 percent (5/5), round-trip min/avg/max = 28/28/28 ms

Type escape sequence to abort.

Sending 5, 100-byte ICMP Echos to 192.168.23.3, timeout is 2 seconds:

!!!!!

Success rate is 100 percent (5/5), round-trip min/avg/max = 56/56/56 ms

R1(tcl)#tclquit

Posted in: