摘要：https://www.cnblogs.com/yeungchie/ 函数功能 Perl 中 shift 函数可以返回列表的第一个元素，并将后续所有元素向前移位（ 索引值减 1 ）。输入可选，默认为 @_ 或者 @ARGV。 my @foo = qw( 1 2 3 4 ); say shift @f 阅读全文

摘要：https://www.cnblogs.com/yeungchie/ Callback 函数 proc Callback { handle } { variable line if { [catch {gets $handle line}] || [chan eof $handle]} { # 这里 阅读全文

摘要：https://www.cnblogs.com/yeungchie/ ski-db 打开一个文件获取 lib 对象 dbImport set file "layout.gds" set lib [dbImport $file] 从 lib 对象获取 libId dbLibGet set libId 阅读全文