Re: TCL Script help

TCL Scripting for Cisco IOS (ISBN: 1587059452)

--
Marko Milivojevic - CCIE #18427
Senior Technical Instructor - IPexpert
FREE CCIE training: http://bit.ly/vLecture
Mailto: markom_at_ipexpert.com
Telephone: +1.810.326.1444
Web: http://www.ipexpert.com/
On Fri, Nov 12, 2010 at 03:37, Senthil Kumar <2008ccie_at_live.com> wrote:
> 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 B  ****** PASSED *******"
>>} else { puts "$address ****** FAILED ******" }
>>}
>>if { [regexp "(!!!!!!!!!)" [exec "ping vrf C-GRATE $addressgrate rep 10"
>>]]
>>} {
>>puts "$address B  ****** 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
>
> _______________________________________________________________________
> Subscription information may be found at:
> http://www.groupstudy.com/list/CCIELab.html
Blogs and organic groups at http://www.ccie.net