- android - 多次调用 OnPrimaryClipChangedListener
- android - 无法更新 RecyclerView 中的 TextView 字段
- android.database.CursorIndexOutOfBoundsException : Index 0 requested, 光标大小为 0
- android - 使用 AppCompat 时,我们是否需要明确指定其 UI 组件(Spinner、EditText)颜色
我想要的是类似于下面这个 bash shell 脚本的东西:
#!/bin/bash
# shell timer
# Note: Do not measure time precisely because there is loss in calculations and other commands
# For a human being is something almost imperceptible, fortunately.
# ------------------------------------------------- -----------------------------
s=00
m=00
h=00
key=""
function _screen() {
clear
# Shows the elapsed time on the terminal screen and plays to the time.txt file always updating
printf "%02d:%02d:%02d" $h $m $s > ~/time.txt
echo ":: 'p' to pause, 'c' to continue and 's' to exit ::"
}
function _time() {
_screen
sleep 1
s=$((s+1))
[ $s -eq 60 ] && m=$((m+1)) && s=00
[ $m -eq 60 ] && h=$((h+1)) && m=00
}
function _pause() {
while :
do
_screen
sleep 1
read key
[ "$key" = "c" ] && clear && break
done
}
function _main() {
# Put the terminal in special character interpretation mode
stty -echo -icanon min 0
while :
do
[ "$key" = "s" ] && break
[ "$key" = "p" ] && _pause
_time
read key
done
# Restores the default mode
stty sane
exit 0
}
_main
也许最明显的是将其转换为 Tcl/Tk。我什至尝试过,但我仍然没有成功。见:
#!/usr/bin/env tclsh
# shell timer
# Note: Do not measure time precisely because there is loss in calculations and other commands
# For a human being is something almost imperceptible, fortunately.
# ------------------------------------------------- -----------------------------
set s 00
set m 00
set h 00
puts -nonewline ""
flush stdout
set key [gets stdin]
proc _screen{ } {
clear
set archive [open [pwd]/time.txt w]
# Shows the elapsed time on the terminal screen and plays to the time.txt file always updating
puts $archive "%02d:%02d:%02d" $h $m $s"
puts -nonewline ":: 'p' to pause, 'c' to continue and 's' to exit ::"
}
proc _time{ } {
_screen
after 1000
s=[expr s+1]
if { $s -eq 60 } { m=[expr m+1] } { s=00 }
if { $m -eq 60 } { h=[expr h+1] } { m=00 }
}
proc _pause{ } {
while { 1 }
{
_screen
after 1000
$argv key
if { "$key" = "c" } { break }
}
}
proc _main{ } {
# Put the terminal in special character interpretation mode
stty -echo -icanon min 0
while { 1 }
{
if { "$key" = "s" } { break }
if { "$key" = "p" } { _pause }
_time
$argv key
}
# Restores the default mode
stty sane
close $archive
exit 0
}
after 1000 _main
我仍然致力于并努力使它与引用的示例 - bash 脚本相同地工作。但不排除您可以推广的改进和建议。
What I have in mind something like:
如果这里有人知道并想分享这个想法,请随意。
最佳答案
您的 Tcl 代码有几个问题:
proc _pause{ } {
-- Tcl 对空格非常敏感,因此您需要将过程名称与参数列表分开s=[expr s+1]
-- 使用set
设置变量,需要使用$s
获取变量 value:set s [expr {$s+1}]
或者在这种情况下使用 incr命令 incr s
if { $s -eq 60 }
和 if { "$key"= "s"}
-- 参见 expr正确运算符的手册页。你想要 {$s == 60}
和 {$key eq "s"}
stty -echo -icanon min 0
-- stty 是一个外部命令,所以你需要 exec stty ...
这些是主要的语法问题。您的缩进样式可以改进,使您的代码可读和可维护。
我认为这是一个有趣的挑战,所以我决定独立于您的代码实现它。如果您有任何问题,请告诉我:
#!/usr/bin/env tclsh
set seconds 0
set running true
array set status {
false "(paused)"
true " "
}
#################################################################
proc main {} {
enableRaw
puts "'p' to pause; 'c' to continue; 'q' to quit"
every 1000 display_time
chan configure stdout -buffering none
chan configure stdin -blocking no -buffering none
chan event stdin readable handleStdin
vwait ::forever
disableRaw
puts ""
}
# ref https://wiki.tcl.tk/14693
proc enableRaw {{channel stdin}} {
exec /bin/stty raw -echo <@$channel
}
proc disableRaw {{channel stdin}} {
exec /bin/stty -raw echo <@$channel
}
proc every {ms code} {
after $ms [list every $ms $code]
uplevel #0 $code
}
proc display_time {{event ""}} {
global running seconds
puts -nonewline "\r [format_time] $::status($running) "
if {$running && $event eq ""} {incr seconds}
}
proc format_time {} {
return [clock format $::seconds -format "%H:%M:%S" -gmt true]
}
proc handleStdin {} {
set data [chan read stdin 1]
switch -- $data {
P - p {set ::running false; display_time}
C - c {set ::running true; display_time unpausing}
Q - q {set ::forever "now"}
}
}
#################################################################
main
关于linux - 如何用Tcl/Tk语言创建一个带有文本模式控件的定时器,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/49365601/
我想使用 li 和 ul 制作一个多级下拉列表,以便显示我博客中按年和月排序的所有文章。我希望我的下拉菜单看起来像 Google Blogspot 下拉菜单: 这是我的 CSS 和 HTML 代码 u
我在 Win 7 64 机器上将 CodeBlocks 与 gcc 4.7.2 和 gmp 5.0.5 结合使用。开始使用 gmpxx 后,我看到一个奇怪的段错误,它不会出现在 +、- 等运算符中,但
我正在使用 tern 为使用 CodeMirror 运行的窗口提供一些增强的智能感知,它工作正常,但我遇到了一个问题,我想添加一些自定义“types”,可以这么说,这样下拉列表中它们旁边就有图标了。我
我正在尝试让我的 PC 成为 Android 2.3.4 设备的 USB 主机,以便能够在不需要实际“附件”的情况下开发 API。为此,我需要将 PC 设置为 USB 主机和“设备”(在我的例子中是运
很难说出这里要问什么。这个问题模棱两可、含糊不清、不完整、过于宽泛或夸夸其谈,无法以目前的形式得到合理的回答。如需帮助澄清此问题以便重新打开,visit the help center . 关闭 9
我在设置服务器方面几乎是个新手,但遇到了一个问题。我有一个 Ubuntu 16.04 VPS 并安装了 Apache2 和 Tomcat7。我正在为 SSL 使用 LetsEncrypt 和 Cert
我在一个基于谷歌地图的项目上工作了超过 6 个月。我使用的是 Google Maps API V1 及其开发人员 API key 。当我尝试发布应用程序时,我了解到 Google API V1 已被弃
我是 Python 的新手,所以如果我对一些简单的事情感到困惑,请原谅。 我有一个这样的对象: class myObject(object): def __init__(self):
这个问题已经有答案了: How can I access object properties containing special characters? (2 个回答) 已关闭 9 年前。 我正在尝
我有下面的 CSS。我想要的是一种流体/液体(因为缺乏正确的术语)css。我正在为移动设备开发,当我改变模式时 从纵向 View 到陆地 View ,我希望它流畅。现在的图像 在陆地 View 中效
我正在尝试使用可以接受参数的缓存属性装饰器。 我查看了这个实现:http://www.daniweb.com/software-development/python/code/217241/a-cac
这个问题在这里已经有了答案: Understanding slicing (36 个答案) 关闭 6 年前。 以a = [1,2,3,4,5]为例。根据我的直觉,我认为 a[::-1] 与 a[0:
mysqldump -t -u root -p mytestdb mytable --where=datetime LIKE '2014-09%' 这就是我正在做的事情,它会返回: mysqldum
我正在制作销售税计算器,除了总支付金额部分外,其他一切都正常。在我的程序中,我希望能够输入一个数字并获得该项目的税额我还希望能够获得支付的总金额,包括交易中的税金。到目前为止,我编写的代码完成了所有这
关闭。这个问题不符合Stack Overflow guidelines .它目前不接受答案。 我们不允许在 Stack Overflow 上提出有关通用计算硬件和软件的问题。您可以编辑问题,使其成为
我是否必须进行任何额外的设置才能让 apache-airflow 在任务失败时向我发送电子邮件。我的配置文件中有以下内容(与默认值保持不变): [email] email_backend = airf
这个问题在这里已经有了答案: What does the $ symbol do in VBA? (5 个回答) 3年前关闭。 使用返回字符串(如 Left)的内置函数有什么区别吗?或使用与 $ 相同
我有一个用VB6编写的应用程序,我需要使用一个用.NET编写的库。有什么方法可以在我的应用程序上使用该库吗? 谢谢 最佳答案 这取决于。您可以控制.NET库吗? 如果是这样,则可以修改您的库,以便可以
当我创建一个以 ^ 开头的类方法时,我尝试调用它,它给了我一个错误。 class C { method ^test () { "Hi" } } dd C.new.test; Too m
我已经使用 bower 安装了 angularjs 和 materialjs。 凉亭安装 Angular Material 并将“ngMaterial”注入(inject)我的应用程序,但出现此错误。
我是一名优秀的程序员,十分优秀!