Tcl - Variabel

Di Tcl, tidak ada konsep deklarasi variabel. Sekali, nama variabel baru ditemukan, Tcl akan mendefinisikan variabel baru.

Penamaan Variabel

Nama variabel dapat berisi karakter dan panjang apa saja. Anda bahkan dapat memberi spasi putih dengan mengapit variabel dalam tanda kurung kurawal, tetapi itu tidak disukai.

Perintah set digunakan untuk menetapkan nilai ke variabel. Sintaks untuk perintah set adalah,

set variableName value

Beberapa contoh variabel ditunjukkan di bawah ini -

#!/usr/bin/tclsh

set variableA 10
set {variable B} test
puts $variableA
puts ${variable B}

Ketika kode di atas dijalankan, itu menghasilkan hasil sebagai berikut -

10
test

Seperti yang Anda lihat pada program di atas, $ variableName digunakan untuk mendapatkan nilai variabel.

Pengetikan Dinamis

Tcl adalah bahasa yang diketik secara dinamis. Nilai variabel dapat secara dinamis dikonversi ke jenis yang diperlukan bila diperlukan. Misalnya, angka 5 yang disimpan sebagai string akan diubah menjadi angka saat melakukan operasi aritmatika. Itu ditunjukkan di bawah ini -

#!/usr/bin/tclsh

set variableA "10"
puts $variableA
set sum [expr $variableA +20];
puts $sum

Ketika kode di atas dijalankan, itu menghasilkan hasil sebagai berikut -

10
30

Ekspresi Matematika

Seperti yang Anda lihat pada contoh di atas, expr digunakan untuk merepresentasikan ekspresi matematika. Presisi default Tcl adalah 12 digit. Untuk mendapatkan hasil floating point, kita harus menambahkan setidaknya satu digit desimal. Contoh sederhana menjelaskan hal di atas.

#!/usr/bin/tclsh

set variableA "10"
set result [expr $variableA / 9];
puts $result
set result [expr $variableA / 9.0];
puts $result
set variableA "10.0"
set result [expr $variableA / 9];
puts $result

Ketika kode di atas dijalankan, itu menghasilkan hasil sebagai berikut -

1
1.1111111111111112
1.1111111111111112

Dalam contoh di atas, Anda dapat melihat tiga kasus. Dalam kasus pertama, pembagi dan pembagi adalah bilangan bulat dan kita mendapatkan bilangan bulat sebagai hasilnya. Dalam kasus kedua, pembagi saja adalah angka desimal dan dalam kasus ketiga, pembagi adalah angka desimal. Dalam kasus kedua dan ketiga, kami mendapatkan angka desimal sebagai hasilnya.

Pada kode di atas, Anda dapat mengubah presisi dengan menggunakan variabel khusus tcl_precision. Itu ditunjukkan di bawah ini -

#!/usr/bin/tclsh

set variableA "10"
set tcl_precision 5
set result [expr $variableA / 9.0];
puts $result

Ketika kode di atas dijalankan, itu menghasilkan hasil sebagai berikut -

1.1111