Re: TCL Script help

Tyson,
Could you please recommend any book for TCL script? I have little
knowledge, and I would like to learn deeper... I appreciate your reply
Thanks

On 12/11/10 3:11 AM, "Tyson Scott" <tscott_at_ipexpert.com> wrote:

>proc ping1 {IP} {
> set PING [ exec "ping vrf CUST1 $IP repeat 10" ]
> set PING [ regexp -inline -all {[\.!]{3}} $PING ]
> if { [ string first "!" $PING ] == -1 } {
> puts "[format "%-40s %s" "ping $IP" "****** FAILED *******" ]"
> } else { puts "[format "%-40s %s" "ping $IP" "****** PASSED *******" ]" }
>}
>proc ping2 {IP} {
> set PING [ exec "ping vrf C-GRATE $IP repeat 10" ]
> set PING [ regexp -inline -all {[\.!]{3}} $PING ]
> if { [ string first "!" $PING ] == -1 } {
> puts "[format "%-40s %s" "ping $IP" "****** FAILED *******" ]"
> } else { puts "[format "%-40s %s" "ping $IP" "****** PASSED *******" ]" }
>}
>foreach address {
>10.8.2.1
>10.8.2.2
>10.8.2.7
>10.8.0.45
>10.3.1.1
>10.3.2.1
>10.3.0.26
>10.3.0.3
>172.16.64.1
>172.16.68.1
>} { ping2 $address }
>foreach address {
>167.10.10.5
>10.10.0.1
>10.10.0.5
>} { ping1 $address }
>
>Regards,
>
>Tyson Scott - CCIE #13513 R&S, Security, and SP
>Managing Partner / Sr. Instructor - IPexpert, Inc.
>Mailto: tscott_at_ipexpert.com
>
>
>-----Original Message-----
>From: nobody_at_groupstudy.com [mailto:nobody_at_groupstudy.com] On Behalf Of
>Marcin Zgola
>Sent: Thursday, November 11, 2010 1:31 AM
>To: Cisco certification
>Subject: TCL Script help
>
>i have a PE router, that i want to develop TCL script that will check
>connectivity to all of the customers.
>
>I am confused with the script. HEre is list of ip addresses i want to ping
>sourcing from each VRF< and results either PASSED or FAILED.
>
>can some one help me?
>
>set cust2 {
>10.8.2.1
>10.8.2.2
>10.8.2.7
>10.8.0.45
>10.3.1.1
>10.3.2.1
>10.3.0.26
>10.3.0.3
>172.16.64.1
>172.16.68.1
>}
>set cust1 {
>167.10.10.5
>10.10.0.1
>10.10.0.5
>}
>foreach address {
>
>} {
>if { [regexp "(!!!!!!!!!)" [exec "ping vrf CUST1 $address rep 10" ]] } {
>puts "$address ****** PASSED *******"
>} else { puts "$address ****** FAILED ******" }
>}
>if { [regexp "(!!!!!!!!!)" [exec "ping vrf C-GRATE $addressgrate rep 10"
>]]
>} {
>puts "$address ****** PASSED *******"
>} else { puts "$address ****** FAILED ******" }
>
>Marcin Zgola
>Internetwork Lead
>CCIE #18676
>Netrix, LLC
>http://www.netrixllc.com
>Ph. 847-964-5300
>Fax.: 847-964-5350
>
>
>Blogs and organic groups at http://www.ccie.net
>
>_______________________________________________________________________
>Subscription information may be found at:
>http://www.groupstudy.com/list/CCIELab.html
>
>
>Blogs and organic groups at http://www.ccie.net
>
>_______________________________________________________________________
>Subscription information may be found at:
>http://www.groupstudy.com/list/CCIELab.html

Blogs and organic groups at http://www.ccie.net
Received on Fri Nov 12 2010 - 12:37:50 ART