beating的个人空间 http://blog.eetop.wang/beat [收藏] [复制] [分享] [RSS]

日志

tcl test

已有 142 次阅读2020-4-18 17:41 |系统分类:技术

if {$argc >= 1} {

    set N 1

    foreach Arg$argv {

        putsstdout "$N: $Arg\n"

        set N[expr $N + 1]

        if{$Arg == "ring"} {

           puts stdout "\a"

        }

    }

} else {

    puts stdout"$argv0 \n"

}
————————————————
版权声明:本文为CSDN博主「badman250」的原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/notbaron/article/details/78299373



点赞

全部作者的其他最新日志

评论 (0 个评论)

facelist

您需要登录后才可以评论 登录 | 注册

  • 关注TA
  • 加好友
  • 联系TA
  • 0

    周排名
  • 0

    总排名
  • 2

    关注
  • 1

    粉丝
  • 3

    好友
  • 4

    获赞
  • 14

    评论
  • 6

    收藏

关于我们| 小黑屋| 手机版| Archiver| 在线咨询 |  ET创芯网(EETOP) ( 京ICP备15035084号 京公网安备:11010502037710 )

GMT+8, 2021-4-23 19:50 , Processed in 0.044866 second(s), 24 queries .

返回顶部