主页 / coding / 问题 / 79295855
Accepted
Gert Gottschalk
Asked: 2024-12-20 07:51:36 +0800 CST

TCL 在布尔条件中分配和评估变量似乎失败

  • 772

在一段时间的条件中，我正在读取分配，然后测试一个变量作为布尔表达式。

假设我正在读取一个文件并想丢弃注释行。但下面的代码不会进入循环。puts 永远不会打印。

while {[gets $fp line] >= 0 && [regexp {^#} $line] ==0} {
  puts "Got valid data"
}

似乎行的获取分配和它的评估不能处于同一条件中。这在 TCL 规范中得到证实了吗？

当然，这个方法可行，但我希望在一个语句中完成条件判断。

while {[gets $fp line] >= 0 } {
  if {[regexp {^#} $line] == 0 } {
    puts "Got valid data"
  }
}

干杯。

tcl

2 个回答

  1. Best Answer

    正如@glennjackman所说，逻辑是有缺陷的。

    这是一个使用函数读取/过滤输入的简单示例

    cat gert.tcl
#!/usr/bin/env tclsh

proc filteredRead {fstream lineVar prune} {
    upvar $fstream handle;
    upvar $lineVar line;
    upvar $prune   filter; #skip lines matching this regexp

    while {[gets $fstream line] >= 0} {
        if {[regexp $prune $line]} {
            continue
        }
        return 1
    }
    return 0
}

if {$argc == 0} {
    puts "Usage: $argv0 <filename> [filter (default is ^#)]"
    exit 1
}

set filename [lindex $argv 0]
set filter {^#};     # default filter is comment lines

if {$argc == 2} {
    set filter [lindex $argv 1]
}

if {![file readable $filename]} {
    puts "Error: File '$filename' does not exist or is not readable."
    exit 1
}

set handle [open $filename r]

set line ""

puts "\nfiltering lines matching: \[$filter\]"

while {[filteredRead $handle line $filter]} {
    puts "\[$line\]"
}

close $handle

#
#invoke against an simple test file 
#
cat input
# i'm a comment, skip me
print me 

# i'm also comment, skip me
and me
# skip me 

# and me
i will be printed
# i'll be skipped

./gert.tcl input
filtering lines matching: [^#]
[print me ]
[]
[and me]
[]
[i will be printed]

    希望这有帮助。

    • 1

  2. 您无法在条件内跳过循环迭代；此时while没有针对异常的处理程序。（通常它们会被编译为跳转。）在主体内部使用是惯用的。continueifwhile

    • 0

相关问题