Tcl Programming Examples

tcl_scripting_freetales

tcl

puts "Hello World!"

string_map

tcl

# SIP::header replace "Contact" [string map "$static::OCCP_IP_2 $static::TA3_LEGA_EXTERNAL_SNAT_IP" [SIP::header value "Contact" 0] ] 0  

set OCCP_IP_2 "1.2.3.4"
set TA3_LEGA_EXTERNAL_SNAT_IP "8.8.8.8"
set SIPHeaderValue "1.2.3.45"

set result1 [ string map "$OCCP_IP_2 $TA3_LEGA_EXTERNAL_SNAT_IP" "$SIPHeaderValue" ]
puts $result1

Execute Tcl Online

tcl

    puts "WeLCOMe\nto\n'Eximius!' + lakshmi";
    puts $tcl_version
    puts 'hello'
    puts $tcl_library
    puts $tcl_rcFileName
    puts {expr '26+7'}
    puts [expr -5+3-1-8]  
    set eximius 7920
    puts [expr $eximius + 2]
    puts $eximius
    set lakshmi 7
    puts [expr $lakshmi + 5]
    set q1 "truth"
    set q2 '{wins}'
    puts  $q1  
    puts $q2
    puts '"(truth)"'
    set color {black brown green}
     puts [lindex $color 1]
    set myVariable {red green blue}
    puts [lindex $myVariable 2]
    set myVariable "red green blue"
    puts [lindex $myVariable 1]
    set laks 23
    set {darshan} 22
    puts "lakshmi= $laks"
    puts "darshan = ${darshan}  nhce\n"
    puts "NHCE"
    set food "33"
     set fruit [expr $food + "77"]
    puts $fruit
   set a 10
    puts $a
    set a 1
    set b 4
    puts d[ $a & $b]

TCLsyntaxTesting

tcl

set httpURI "/offer-admin-service/Hello_World"
puts [string range $httpURI [string first "/" $httpURI 1] end]

jonny

tcl

# Объявляем переменные
# 1) предыдущее значение
# 2) настоящее значение
# 3) инкриментное значение на выходе
global mom_prev_pos_V
global mom_pos_V
global mom_out_pos_V

# Установка значений для тестирования (предыдущее и настоящее)
set mom_prev_pos_V -2.99
set mom_pos_V +1.99

# Если предыдущее и настоящее больше нуля
# Убираем у них знаки и вычитаем из большего меньшее так же без знака
# Если предыдущее больше сейчашнего то усанавливаем знак минус, 
# если наоборот то плюс.
# Выводим результат.
if {$mom_prev_pos_V>0 && $mom_pos_V>0} {
set mom_pos_V [expr "abs($mom_pos_V)"]
set mom_prev_pos_V [expr "abs($mom_prev_pos_V)"]
set mom_out_pos_V [expr "abs($mom_prev_pos_V-$mom_pos_V)"]    
if {$mom_prev_pos_V > $mom_pos_V} {
set mom_out_pos_V -$mom_out_pos_V
}
if {$mom_prev_pos_V < $mom_pos_V} {
set mom_out_pos_V +$mom_out_pos_V
}
puts $mom_out_pos_V
}

# Если предыдущее и настоящее меньше нуля
# Убираем у них знаки и вычитаем из большего меньшее так же без знака
# Если предыдущее больше сейчашнего то усанавливаем знак плюс, 
# если наоборот то минус.
# Выводим результат.
if {$mom_prev_pos_V<0 && $mom_pos_V<0} {
set mom_pos_V [expr "abs($mom_pos_V)"]
set mom_prev_pos_V [expr "abs($mom_prev_pos_V)"]
set mom_out_pos_V [expr "abs($mom_prev_pos_V-$mom_pos_V)"]    
if {$mom_prev_pos_V > $mom_pos_V} {
set mom_out_pos_V +$mom_out_pos_V
}
if {$mom_prev_pos_V < $mom_pos_V} {
set mom_out_pos_V -$mom_out_pos_V
}
puts $mom_out_pos_V
}


# Если предыдущее больше нуля, а настоящее меньше нуля
# Убираем у них знаки и складываем
# Если предыдущее больше сейчашнего то усанавливаем знак минус, 
# если наоборот то плюс.
# Выводим результат.
if {$mom_prev_pos_V>0 && $mom_pos_V<0} {
set mom_pos_V [expr "abs($mom_pos_V)"]
set mom_prev_pos_V [expr "abs($mom_prev_pos_V)"]

set mom_out_pos_V [expr "abs($mom_prev_pos_V+$mom_pos_V)"]    

if {$mom_prev_pos_V > $mom_pos_V} {
set mom_out_pos_V -$mom_out_pos_V
}
if {$mom_prev_pos_V < $mom_pos_V} {
set mom_out_pos_V +$mom_out_pos_V
}
puts $mom_out_pos_V
}



# Если предыдущее меньше нуля, а настоящее больше нуля
# Убираем у них знаки и складываем
# Если предыдущее больше сейчашнего то усанавливаем знак плюс, 
# если наоборот то минус.
# Выводим результат.
if {$mom_prev_pos_V<0 && $mom_pos_V>0} {
set mom_pos_V [expr "abs($mom_pos_V)"]
set mom_prev_pos_V [expr "abs($mom_prev_pos_V)"]

set mom_out_pos_V [expr "abs($mom_prev_pos_V+$mom_pos_V)"]    

if {$mom_prev_pos_V > $mom_pos_V} {
set mom_out_pos_V +$mom_out_pos_V
}
if {$mom_prev_pos_V < $mom_pos_V} {
set mom_out_pos_V -$mom_out_pos_V
}
puts $mom_out_pos_V
}

# Затестировать код можно вот тут 
# https://www.tutorialspoint.com/execute_tcl_online.php
# Посмотри и скажи свое мнение мистер Джонни

palalalal

tcl

for {set i 0} {$i<=5} {incr i} {
for {set j 5} {$j>=$i} {incr j -1} {
    puts -nonewline $j
}
puts "\n"
}

Execute Tcl Online

tcl

regexp {c.*d} "abcdeghi" matched
puts $matched

Tclers

tcl

set a "hello world"
puts $a
set c {25 30 48 50 30 45 94 83 72}
append c \ red
append c \ Apple
append c \ 58
append c \ ramu
puts $c

proc avg {numbers} {
   set sum 0
   foreach number $numbers {
      set sum  [expr $sum + $number]
   }
   set average [expr $sum/[llength $numbers]]
   return $average
}
puts [avg {70 80 50 60}]
puts [avg {70 80 50 }]

Execute Tcl Online

tcl

ios_config "FastEthernet0/0" "shut"

LOOPS

tcl

puts "Hello World!"
set a 20
set b 30
set c 30

puts [string compare a b]
if {[string compare b c] == 0} {
    puts "string \'a\' and \'b\' are same.";
}

if {[string compare a b] == -1} {
   puts "string \'a\' comes before \'b\'.";
}

if {[string compare b a] == 1} {
    puts "string \'b\' comes after \'a\'.";
}


set a "hello world"
set b  "o"
puts "first occurrence of $b in a"
puts [string first $b $a]
puts "character at index 0 in a"
puts [string index $a 0]
puts "last occurance of $b in a"
puts [string last $b $a]
puts  "word end  index  in a" 
puts [string wordend  $a 20]
puts "word start index in a"
puts [string wordstart $a 20]




set s1 "hello world"
set s2 "world"
puts "trim right $s2 in $s1"
puts [string trimright $s1 $s2]

set s2 "hello"
puts "trim right $s2 in $s1"
puts [string trimleft $s1 $s2]

set s1 " hello world "
set s2 " "
puts "trim characters s1 on both sides of s2"
puts [string trim $s1 $s2]


\n

Follow

Newsletter