Questions in: Tcl

set incrlist { 1 2 3 }
foreach element $incrlist {
set new_element [ expr $element + 1 ]
lappend new_incrlist $new_element
}
puts $new_incrlist

set list {1 2 3}
regsub -all {(d+)} $list "[expr \1 + 1]" new_list
set result [eval concat "" $new_list]

set ip "192.30.40.1"
regsub {(d+).(d+).(d+).(d+)} $ip "\1.\3.\2.\4" new_ip
puts $new_ip

set x 192.30.40.1
set srcStr {([0-9]+).([0-9]+).([0-9]+).([0-9]+)}
regexp $srcStr $x - d1 d2 d3 d4
regsub $srcStr $x "$d1.$d3.$d2.$d1" x
puts $x

set i "ccccccccaaabbbbaaaabbinformationabcaaaaaabbbbbbbccbb"
set n [regexp {.*(information).*} $i ma s]
puts "$s"

puts [string trim "ccccccccaaabbbbaaaabbinformationabcaaaaaabbbbbbbccbb" "abc"]
verified result.
works 100% fine.

set ch a
set l [scan $ch %c]
incr l
set m [format %c $l]
puts "$m"

set character "a"
set incremented_char [format %c [expr {[scan $character
%c]+1}]]
puts "Character before incrementing '$character' : After
incrementing '$incremented_char'"

OK, I have a small test file that contains utf-8 codes. Here
it is (the language is Wolof)
Fˆndeen d‘kk la bu ay wolof aki seereer a fa nekk. DigantŽem
ak Cees jur—om-benni kilomeetar la. MbŽyum gerte ‘pp ci
diiwaan bi mu
that is what it looks like in a vanilla editor, but in hex
it is:
xxd test.txt
0000000: 46cb 866e 6465 656e 2064 e280 986b 6b20 F..ndeen
d...kk
0000010: 6c61 2062 7520 6179 2077 6f6c 6f66 2061 la bu ay
wolof a
0000020: 6b69 2073 6565 7265 6572 2061 2066 6120 ki seereer
a fa
0000030: 6e65 6b6b 2e20 4469 6761 6e74 c5bd 656d nekk.
Digant..em
0000040: 2061 6b0d 0a43 6565 7320 6a75 72e2 8094 ak..Cees
jur...
0000050: 6f6d 2d62 656e 6e69 206b 696c 6f6d 6565 om-benni
kilomee
0000060: 7461 7220 6c61 2e20 4d62 c5bd 7975 6d20 tar la.
Mb..yum
0000070: 6765 7274 6520 e280 9870 7020 6369 2064 gerte
...pp ci d
0000080: 6969 7761 616e 2062 6920 6d75 0d0a iiwaan bi mu..
The second character [cb86] is a non-standard coding for
a-grave [à] which is found quite consistently in web
documents, although in 'real' utf-8, a-grave would be c3a0.
Real utf-8 works beautifully on Macs and under Windows.
I handle the fake utf-8 by using a character map which
included the pair { ˆ à } because that little caret is what
cb86 generates, and everything works fine ON A MAC for
displaying text (in a text widget) like this:
Fàndeen dëkk la bu ay wolof aki seereer a fa nekk. Digantéem ak
Cees juróom-benni kilomeetar la. Mbéyum gerte ëpp ci diiwaan
bi mu
On a PC - using the same file (shared) the first three
characters read in are46 cb 20 (using no fconfigure). I have
run through ALL the possible encodings and can never get the
same map to work. [There are twenty that will allow 46 cb 86]
Sorry this is so long, but if anyone has a clue, I would
love to hear it.
Tel Monks

source <package_name>
(or)
package require <name>

TCL OOPS

Hi!! i have written code for the above pseudo code.Check if it works!!!!!
gets stdin a
set len [ string length $a ]
set n [ expr $len/2 ]
for { set i 0 } { $i < $n } { incr i 1 } {
set b [ string index $a $i ]
set c [ expr $len - 1 - $i ]
set d [ string index $a $c ]
if {$b != $d} {
puts "not a palindrome"
exit
}
}
puts "Palindrome"

proc palindrome {iStr} {
if {[ string match -nocase $iStr [string reverse $iStr]]} {
puts "Palindrome"
} else {
puts "Not a Palindrome"
}
}
palindrome "Sator Arepo Tenet Opera Rotas"
Palindrome

set str "lenghtofthisstring"
set list1 [ split $str "" ]
foreach value $list1 {
incr len
}
puts $len

set str "lenghtofthisstring"
puts [llength [ split $str "" ]]

% set ip 10.30.20.1
10.30.20.1
% regsub -all {30} $ip {40} ip
1
% puts $ip
10.40.20.1
%

In above answer if you have IP like 10.30.30.1 then it replace for all 30 with 40.But here i guess intention is just to replace one octet with 40.So following solves that issue:
set a 10.30.2.1
set b [ string replace $a 3 4 40 ]
puts $b

Tcl (Tool Command Language) is a very powerful but easy to
learn dynamic programming language, suitable for a very wide
range of uses, including web and desktop applications,
networking, administration, testing and many more. Open
source and business-friendly, Tcl is a mature yet evolving
language that is truly cross platform(windos,all flavors of
linux,macintosh), easily deployed and highly extensible.
Developer :Ousterhout
Current Version : 8.5
Regards,
Rajkumar

TCL(Tool Command Language) ia a very simple and powerful
scripting language.It can source script or enter commands
and scripts. TCL shell provides interface to the interpreter
of the commands for execution.

set oned { one two three four five six seven eight nine ten }
set towd { ten eleven twelve thirteen fourteen fifteen sixteen seventeen eighteen nineteen }
set multten {ten twenty thirty forty fifty sixty seventy eighty ninety}
set num 67
set len [string len $num]
if {$len == 1} {
set first [regexp -inline {[0-9]} $num]
set first [lindex $oned $first-1]
puts $first
}
if {$len == 2 && $num < 19} {
set first [regexp -inline {[0-9]$} $num]
set first [lindex $towd $first]
puts $first
}
if {$len == 2 && $num > 19} {
set first [regexp -inline {[0-9]} $num]
set first [lindex $multten $first-1]
set second [regexp -inline {[0-9]$} $num]
set second [lindex $oned $second-1]
puts "$first $second"
}

set ip "10.255.255.255"
set list [split $ip "."]
set oct1 [lindex $list 0]
set oct2 [lindex $list 1]
set oct3 [lindex $list 2]
set oct4 [lindex $list 3]
if {$oct4>254} {
set oct4 0
set oct3 [expr $oct3+10]
if {$oct3>255} {
set oct3 0
set oct3 [expr $oct3+10]
if {$oct2>255} {
set oct2 0
set oct3 [expr $oct1+10] }
if {$oct1>255} {
set oct1 0
}}} else {
set oct4 [expr $oct4+10]
}
puts "$oct1.$oct2.$oct3.$oct4"

puts "searching variable a"
set list_4 [list Anu Anudeep Anukumar Amar Amaravathi Aruna]
foreach item $list_4 {
set elem [split $item ""]
foreach var $elem {
if {$var == "a"} {
puts $item
}
}
}

set str {Anu Anudeep Anukumar Amar Amaravathi Aruna}
foreach i $str {
if {[regexp {(A)} $i match ] } {
puts $match
}
}

From System A, ssh to system B and get the spawn ID of System B into System A , use "set val [send -i $spawn_id <command>]" which would run a command in System B from system A context, Now whatever is content in val (puts $val) would be the logs from System B run in System A.

It is my opinion that on which task I have to use which language.

#10.0.0.0 through 10.255.255.255
#169.254.0.0 through 169.254.255.255
#172.16.0.0 through 172.31.255.255
#192.168.0.0 through 192.168.255.255
set ip 192.168.10.1
if {[regexp {^(10|169|172|192).([0-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5]).([0-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5]).([0-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])} $ip match 1st 2nd 3rd 4th]} {
puts $match
puts "$1st
$2nd
$3rd
$4th" }

#169.254.0.0 through 169.254.255.255
#172.16.0.0 through 172.31.255.255 
#192.168.0.0 through 192.168.255.255
#10.0.0.0 10.255.255.255
set a "10.78.80.2" or 
// a could be any private range the below regexp will match ,if u provide other than private range it will throw an error 
regexp {^(10|169|172|192).([0-9]+|[0-9][0-9]+|1[0-9][0-9]+|2[0-4][0-9]+|25[0-5]+).([0-9]|[0-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5]).([0-9]|[0-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])} $a match 
puts $match

set ip "244.168.123.23"
regexp {([0-9]+).([0-9]+).([0-9]+).([0-9]+)} $ip match a b c d 
if {$a <=255 & $b <=255 & $c <=255  & $d <=255} {
puts "$ip is valid ip address"
} else {
puts "$ip is not valid address"
}

Hi,
check this out 
====================
I am trying to match first octet in an valid IP address ,Please copy and paste for the remaining octet
regexp {^([1-9]|[0-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5]).} $ip match first
I have matched in below order ...
1-10
11-99
100-199
200-248
250-255