by Brent B. Welch About the author: 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/ Content: Tcl�﷨��� һ��С���� ������滻 ��һ������ ������� ���һ������ ��һ���Ķ�

Tcl �﷨

Abstract:

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

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
}

���ǿ�����������ѧ����ʽ: �߼��ȽϺͳ˷�����. 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]]]
    }
}

��һ���Ķ�

• <<ʹ��Tcl �� Tk �������>>��һ��
• E.J. Friedman��Tcl/Tk�̲�

���ķ��룺����

1999-09-27, generated by lfparser version 0.6