[ Tcl ] 如何实现类似 Perl 中 shift 函数的效果

https://www.cnblogs.com/yeungchie/

函数功能

Perl 中 shift 函数可以返回列表的第一个元素，并将后续所有元素向前移位（ 索引值减 1 ）。输入可选，默认为 @_ 或者 @ARGV。

my @foo  = qw( 1 2 3 4 );
say shift @foo;
# 1
say @foo;
# 234

在某些版本的 Tcl 中函数 lshift 可以实现类似效果，或者使用 struct::list 包：

package require struct::list
set foo { 1 2 3 4 }
puts [::struct::list shift foo]
# 1
puts $foo
# 2 3 4

但某些 EDA 工具中内置的 Tcl 版本较旧，或者做了精简，无法使用上面提到的方法，所以下面自己来实现一下。

Tcl 实现

proc shift { sym } {
    upvar 1 $sym foo
    if { ! [info exists foo] } {
        error "can't read \"$sym\": no such variable"
    }
    set foo [lassign $foo[unset foo] var0]
    return $var0
}

测试

列表迭代

set a {3 1 2 5 4}
# 3 1 2 5 4
shift a
# 3
shift a
# 1
puts $a
# 2 5 4

循环中应用

set a {1 2 {} 4 {}}
# 1 2 {} 4 {}
while { [llength $a] } {
    puts [shift a]
}
# 1
# 2
# 
# 4
#