免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 814 | 回复: 0
打印 上一主题 下一主题

[学习共享] [tcl] isatty(3) 功能在 tcl 中的实现 [复制链接]

论坛徽章:
84
每日论坛发贴之星
日期:2015-12-29 06:20:00每日论坛发贴之星
日期:2016-01-16 06:20:00每周论坛发贴之星
日期:2016-01-17 22:22:00程序设计版块每日发帖之星
日期:2016-01-20 06:20:00每日论坛发贴之星
日期:2016-01-20 06:20:00程序设计版块每日发帖之星
日期:2016-01-21 06:20:00每日论坛发贴之星
日期:2016-01-21 06:20:00程序设计版块每日发帖之星
日期:2016-01-23 06:20:00程序设计版块每日发帖之星
日期:2016-01-31 06:20:00数据库技术版块每日发帖之星
日期:2016-01-16 06:20:00程序设计版块每日发帖之星
日期:2016-01-16 06:20:00程序设计版块每日发帖之星
日期:2016-01-14 06:20:00
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2016-02-19 14:08 |只看该作者 |倒序浏览
本帖最后由 yjh777 于 2016-02-19 14:10 编辑
  1. dict exists [fconfigure stdin] -mode
复制代码
proc

  1. proc istty {{chann stdin}} {
  2.         dict exists [fconfigure $chann] -mode
  3. }
复制代码
test
  1. $ cat kkk.tcl
  2. #!/bin/sh
  3. # -*- tcl -*-
  4. # The next line is executed by /bin/sh, but not tcl \
  5. exec tclsh "$0" ${1+"$@"}

  6. proc istty {{chann stdin}} {
  7.         dict exists [fconfigure $chann] -mode
  8. }

  9. puts [expr {[istty stdin] ? "read from tty" : "doesn't read from tty"}]
  10. $ ./kkk.tcl
  11. read from tty
  12. $ echo | ./kkk.tcl
  13. doesn't read from tty
  14. $ ./kkk.tcl  < name.txt
  15. doesn't read from tty
复制代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP