8

我正在学习 Tcl。在 Perl 我可以这样做:

 $ perl -e 'for ($i = 0; $i < 5; $i++) { printf("name%03d\n", $i) }'
 name000
 name001
 name002
 name003
 name004

我可以在 Tcl 中执行此操作吗?

4

1 回答 1

28

格式

$ tclsh
% for {set i 0} {$i < 5} {incr i} { puts [format "name%03d" $i] }
name000
name001
name002
name003
name004
于 2009-11-05T17:39:53.897 回答