upvar

parameter in and out

 

% proc aa { href } { \
upvar $href localhref;
set localhref 1;
\
}
% aa test
1
% puts $test
1

posted @   greencolor  阅读(163)  评论(0编辑  收藏  举报
努力加载评论中...
点击右上角即可分享
微信分享提示