Tcl - Array

Array adalah susunan sistematis dari sekelompok elemen menggunakan indeks. Sintaks untuk array konvensional ditampilkan di bawah ini.

set ArrayName(Index) value

Contoh untuk membuat array sederhana ditunjukkan di bawah ini.

#!/usr/bin/tclsh

set languages(0) Tcl
set languages(1) "C Language"
puts $languages(0)
puts $languages(1)

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

Tcl
C Language

Ukuran Array

Sintaks untuk menghitung larik ukuran ditunjukkan di bawah ini.

[array size variablename]

Contoh untuk mencetak ukuran ditunjukkan di bawah ini.

#!/usr/bin/tclsh

set languages(0) Tcl
set languages(1) "C Language"
puts  [array size languages]

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

2

Array Iteration

Padahal, indeks array bisa jadi tidak kontinu seperti nilai yang ditentukan untuk indeks 1 lalu indeks 10 dan seterusnya. Tapi, jika mereka kontinu, kita dapat menggunakan iterasi array untuk mengakses elemen array. Iterasi larik sederhana untuk mencetak elemen larik ditampilkan di bawah ini.

#!/usr/bin/tclsh

set languages(0) Tcl
set languages(1) "C Language"
for { set index 0 }  { $index < [array size languages] }  { incr index } {
   puts "languages($index) : $languages($index)"
}

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

languages(0) : Tcl
languages(1) : C Language

Array Asosiatif

Di Tcl, semua larik pada dasarnya bersifat asosiatif. Array disimpan dan diambil tanpa urutan tertentu. Array asosiatif memiliki indeks yang tidak harus berupa angka, dan dapat diisi secara jarang. Contoh sederhana untuk array asosiatif dengan indeks non-angka ditampilkan di bawah ini.

#!/usr/bin/tclsh

set personA(Name) "Dave"
set personA(Age) 14
puts  $personA(Name)
puts  $personA(Age)

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

Dave
14

Indeks Array

Sintaks untuk mengambil indeks larik ditampilkan di bawah ini.

[array names variablename]

Contoh untuk mencetak ukuran ditunjukkan di bawah ini.

#!/usr/bin/tclsh

set personA(Name) "Dave"
set personA(Age) 14
puts [array names personA]

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

Age Name

Iterasi dari Associative Array

Anda dapat menggunakan indeks array untuk melakukan iterasi melalui array asosiatif. Contohnya ditunjukkan di bawah ini.

#!/usr/bin/tclsh

set personA(Name) "Dave"
set personA(Age) 14
foreach index [array names personA] {
   puts "personA($index): $personA($index)"
}

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

personA(Age): 14
personA(Name): Dave