[split $var n]
kullanimi ile aradan kaldirmak istediginiz karakterleri bolmeye yarayan 1 protokoldur, isleyisine ornek verecek olursak
Kod: Kodu kopyalamak için üzerine çift tıklayın!
set var "bir-iki-uc-dort"
putlog [split $var -]
Bunu oldugu gibi TCL olarak ekledigimizde bizim karsimiza cikacak sonuc bir
iki uc dort olacaktir, lakin anlatmak istediginiz eger bu aradaki karakterleri kaldirmaktan ziyade birde bunlari ayri ayri yazdirmaksa bunun icin de foreach kullanman yeterli olur. Buna ornek verecek olursak
[code]
set degisken "a-b-c-d"
test ;<<< programimizi calistiriyoruz
proc test {} {
global degisken
foreach kisim [split $degisken -] {
putlog "$kisim" ;
}
}
Bu islem sonucu alt altta arada - karakteri olmadan degisken'e atanmis tum harfler dizilecektir.