Tcl �﷨

ArticleCategory:[Artikel Kategorie]

Software Development

AuthorImage:[Bild des Autors]

[Photo of the Author]

AuthorName:[Name des Autors]

Brent B. Welch

AboutTheAuthor:[Über den Autor]

Brent Welch ���ڿ���www.scriptics.comվ��, ����һ��Tcl�йص�ͳһ��Դ��λ(Tcl��Դ����)ע�����ݿ� ��TclPro��Ʒ��ecommerce infrasturcture.ͬʱ,�����ڿ����������͵� Tcl/Tk����,��������www.scriptics.comվ���ϵ�Tcl Httpd web ������, ��Exmh �ʼ��û������webtk HTML �༭��.���⣬������д��<<ʹ�� Tcl �� Tk �������>>. Welch1982���ڿ���������Boulder��ѧ���溽�չ��� רҵ��ѧʿѧλ��1986���ڼ���Berkeley��ѧ�����רҵ��˶ʿѧλ�� 1990���ڼ���Berkeley��ѧ�����רҵ��ʿѧλ����ʼ��Welch��ʩ�ֹ�˾ ���尢�����о����ĵ��о�Ա���о��ֲ�ʽϵͳ��������������̫��΢ϵͳ ʵ���ң���ΪTcl/TkС���Ա�����������������Э��͵����� ���ӹ���ʦЭ���Ա����ҳ��ַ��http://www.beedub.com/

Abstract:[Zusammenfassung]

���Ľ�����Tcl���Ե��﷨�ͻ�������.

ArticleIllustration:[Titelbild des Artikels]

[Ilustration]

ArticleBody:[Der eigentliche Artikel]

Tcl�﷨���

��Ϊһ�ֽű����ԣ�Tcl���м򵥵��﷨.

cmd arg arg arg
һ��Tcl�����ɿո�ָ�ĵ������. ����, ��һ����������������, �������������� .
$foo
$���Ŵ���������ֵ. �ڱ�����, ����������foo.
[clock seconds]
������ִ����һ��Ƕ������. ����, ������봫��һ������Ľ����Ϊ���� һ������IJ���, ��ô��ʹ��������� . �ڱ�����, Ƕ������������Ϊ��λ�ĵ�ǰʱ������ .
"some stuff"
˫���ŰѴ�����Ϊ�����һ������. "$"���źͷ�������˫�������Ա����� .
{some stuff}
������Ҳ�Ѵ�����Ϊ�����һ������. ����, ���������ڴ������ڲ�������.
\
��б�߷���(\) �����������������. ���磺\n ��������. ��б�߷���Ҳ�������ر�"$"���� , ����,�����źʹ����ŵ����⺬�� .

һ��С����

������Tcl�д�ӡ��ǰʱ�������. ��ʹ��������Tcl���� : set, clock, �� puts. set �����������ֵ. clock ��������ʱ��ֵ . puts �����ӡ���. 

set seconds [clock seconds]
puts "The time is [clock format $seconds]"

ע���ڸ�������ֵʱ��δʹ��$����. ֻ����ʹ�ñ���ʱ��ʹ��$����.���ϸ�������, seconds ���������DZ����. ����ʹ��һ�������ӡ����ǰʱ��: 

puts "The time is [clock format [clock seconds]]"

������滻

Tcl����Tcl�﷨��ͨ����������: ��������, ����滻���������.

  1. ��������. Tcl��Ҫ����������֯����IJ��� . ����򵥵������, �ո�ָ��˸����� . ��Ϊ���ڹ涨, ���ź�����ʹ������ʳ�Ϊһ������ . ���ϸ������� , ˫����ʹ������� ��Ϊputs�����һ������.

  2. ����滻. �ڲ�������� , Tclִ���ַ����滻. Put������, ֻ�Ǽ򵥵��ñ��� $foo ��ֵ�滻��foo, �ý���滻����������. �滻���ڷ���֮ �� ����е�. ���ִ���ʹ �ر��ֵ��δʹ����ṹ�临��.

  3. �������. �ڽ���滻��, Tclʹ������������Ϊ�ؼ��� ,��ѯ���ɱ�,������Ӧ��C����,��ִ������. . ��Ҳ������Tcl�п����������. �ڲ������ݺʹ����� ����һЩ�򵥵�Լ��.

��һ������

��������һ������: 

set i 0
while {$i < 10} {
    puts "$i squared = [expr $i*$i]"
    incr i
}
����, ������������������, ��û�����κ��滻. Tcl�﷨����֪�� while ����û���ر�ĵط�,��Դ���������һ��. while �����ִ�г���֪����һ�������DZ���ʽ, ��һ�������Ƕ��Tcl���� . �����Ű����ֳ���������:�߼�����ʽ����ѭ��,������ѭ������ .

���ǿ�����������ѧ����ʽ: �߼��ȽϺͳ˷�����. while�����Զ������һ������ֵ. ����������ʱ,��Ҫ��ȷʹ�� expr ������ִ����ѧ����.

�������

���,Tcl���ó���ִ�и��ӵĹ���. ���ǿ��Կ���Tcl ʹ�� expr ������ִ����ѧ����, puts ������ִ���������, set ��������������ֵ. ��ЩTcl����,��ͨ������Tcl��ע�� ��C���Գ�����ִ�е�. C���Գ������Tcl��������ַ�������, Ȼ�󴫻ؽ���ַ���. дC���Գ��򲢲�����, ���ҿ������κ����飬�����������ݿ�ͽ���ͼ�ν� ��. Tcl����, ��������������ʲô , ��ֻ�ǽ��в�������, ����滻��������� .

���һ������

����һ���׳˳���: 

proc fac {x} {
    if {$x < 0} {
        error "Invalid argument $x: must be a positive integer"
    } elseif {$x <= 1} {
        return 1
    } else {
        return [expr $x * [fac [expr $x-1]]]
    }
}


��һ���Ķ�

���ij���: Scriptics

���ķ��룺����