Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
[锟斤拷锟絔 perl 锟斤拷畏锟斤拷锟斤拷锟斤拷锟斤拷Tcl锟斤拷锟诫，锟斤拷没锟叫憋拷准锟侥凤拷式
1 view
Skip to first unread message
������
Jun 13, 2014, 9:52:58 AM6/13/14
to
#!/usr/bin/env tclsh
proc foo d {
dict for {k v} $d {
upvar $k lv
set lv $v
}
}
set d [dict create a 1 b 2 c 3]
foo $d
puts a=$a,b=$b,c=$c
----------------------------------------------------------------
���:
a=1,b=2,c=3
����� :)
--
[36m�� ��:��jman �� Jun 13 21:52:58 2014 �ı��ġ�[FROM: 1.84.184.*] [m
[m [1;35m�� ��Դ:��ˮľ���� newsmth.net��[FROM: 1.84.184.*] [m
proc foo d {
dict for {k v} $d {
upvar $k lv
set lv $v
}
}
set d [dict create a 1 b 2 c 3]
foo $d
puts a=$a,b=$b,c=$c
----------------------------------------------------------------
���:
a=1,b=2,c=3
����� :)
--
[36m�� ��:��jman �� Jun 13 21:52:58 2014 �ı��ġ�[FROM: 1.84.184.*] [m
[m [1;35m�� ��Դ:��ˮľ���� newsmth.net��[FROM: 1.84.184.*] [m
0 new messages