تي سي إل: الفرق بين النسختين

[مراجعة غير مفحوصة][مراجعة غير مفحوصة]
تم حذف المحتوى تمت إضافة المحتوى
سطر 82:
<source lang="Tcl">
set somme [expr [join $nombres +]]
</source>
 
* استبدال الحروف في جدول بإستعمال الأمر string:
 
<source lang="Tcl">
set sequence "ACGTATTACGGTCCATGAACGAATTGGGATATCGACCATGATGGAATTCTG"
puts [string map {GA R TC Y GT K AC M GC S AT W} $sequence]
</source>
 
* تحميل صفحة [[HTML]]:
 
<source lang="Tcl">
package require http
puts [http::data [http::geturl http://mini.net/tcl/540]]
</source>
 
* إعطاء الوقت عن طريق الخطاب الصوتي على [[Android]]:
 
<source lang="Tcl">
package require android
set android [android new]
set time [clock format [clock seconds] -format "%I %M %p on %A, %B %e %Y."]
android speak $time
</source>