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
#
声明:本站所有文章,如无特殊说明或标注,均为本站原创发布。任何个人或组织,在未征得本站同意时,禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。
评论(0)