Tcl

Tcl (lege: Ticel) lingua programmationis computatorii est. Tcl est abbreviatio pro nomine (anglice) "Tool command language" (latine: lingua mandandi instrumentorum).Est lingua simplicissima et fortissima, in qua "omnia sunt catenae litterarum", et est fonte aperta (open source). Litterae Unicodicis utentur, sic potest scribere Graece, Arabice et aliis linguis multis.

Tcl in systemis internis Macintosh (Apple computatoriis), Unix, Linux et Windows utitur.

Ecce simplex exemplum scripti (anglice: script) Tcl:
 puts "dona numerum"
 gets stdin numerus
 puts "Quadratum est: [expr $numerus*$numerus]"

Scriptum est compositum iussorum. Iussa sunt composita verborum, separata spatiis. Iussi primum verbum est nomen iussi (exempli gratia, "puts", "gets", "expr").

Altra exempla:

Collatio numerorum romanorum :

 proc roman:sort list {
    set map {IX VIIII L Y XC YXXXX C Z D {\^} ZM {\^ZZZZ} M _}
    foreach {from to} $map {
        regsub -all $from $list $to list
    }
    set list [lsort $list]
    foreach {from to} [lrevert $map] {
        regsub -all $from $list $to list
    }
    set list
 }

 % roman:sort {X IX V VI III}
 III V VI IX X

Conversio numerorum arabicorum romane:

 proc roman:numeral {i} {
    set res ""
    foreach {value roman} {
         1000 M 900 CM 500 D 400 CD 100 C 90 XC 50 L 40 XL 10 
         X 9 IX 5 V 4 IV 1 I} {
       while {$i>=$value} {
          append res $roman
          incr i -$value
       }
     }
     set res
 }

 % roman:numeral 1789
 MDCCLXXXIX

Conversio numerorum romanorum arabice:

 proc roman:get {s} {
        array set r_v {M 1000 D 500 C 100 L 50 X 10 V 5 I 1}
        set last 99999; set res 0
        foreach i [split [string toupper $s] ""] {
          if [catch {set val $r_v($i)}] {
              error "$i non est numerus romanus in $s"
          }
          incr res $val
          if {$val>$last} {incr res [expr -2*$last]}
          set last $val
        }
        set res
 } 

 % roman:get MDCCLXXXIX
 1789

Perl

 Nexus externi 
situs officialis Tcl
situs libera Tcl
Vocabula computratalia
Vocabula computralia (lingua Latina et Anglica)

Categoria:Abbreviationes
Categoria:Linguae programmationis