TCL如何读取、提取和统计.txt文件（当前目录）中发生的事件

Question

我是脚本初学者，正在大力学习TCL的嵌入式系统开发。

我必须在当前目录中搜索仅具有 .txt 格式的文件，计算 .txt 文件中每个不同“Interface # nnnn”字符串的情况数，其中 nnnn 是最大 4 到 32 位的十六进制数字和 o/接口编号对照表的 p。我在编写脚本时面临实现问题，即无法实现链接列表、二维数组等数据结构。 我正在 TCL 中使用多维数组（将值传递到程序中和程序外的数组中）重写脚本，以扫描每个 .txt 文件并搜索字符串/正则表达式“Interface #”来计数并显示数字的发生次数。如果有人能帮助我完成这部分，我将不胜感激。

仅搜索 .txt 扩展名文件并获取文件的大小

这是我在当前目录中搜索 .txt 文件的代码

set files [glob *.txt]
if { [llength $files] > 0 } {
    puts "Files:"
    foreach f [lsort $files] {
        puts "    [file size $f] - $f"
    }
} else {
    puts "(no files)"
}

我认为这些是完成它的所有可能的逻辑步骤 i) 搜索并找到 .txt 文件后，以只读模式打开所有 .txt 文件 ii) 使用过程 (proc) Interface number to NULL 和 Interface count to Zero 0 创建数组或列表 iii) 扫描 .txt 文件并搜索字符串或正则表达式“interface # iv) 当在 .txt 文件中找到匹配项时，检查接口编号并增加相应条目的计数。否则将新元素添加到接口编号列表中 v) 如果没有文件返回到第一个目录

我的o/p如下

Interface    Frequency
123f            3
1232            4

Answer 1

编辑为按名称使用数组而不是全局变量。

我认为您会想要类似的东西。您可以对每个文件调用 scan_for_interface，并在最后调用 print_report。您可以更高级，并将其包装在 Itcl 类或 命名空间。 scan_for_interface 的第二个参数是存储结果的数组的名称，该名称将传递给 print_report。 regexp 链接将描述 regexp 的工作原理：

proc scan_for_interface {file arrayname} {
  upvar $arrayname array
  set fh [open $file r]
  while {[gets $fh line] >= 0} {
    if {[regexp -- {Interface # ([[:xdigit:]]{4}|[[:xdigit:]]{32})$} $line ignore num]} {
      if {[info exists array($num)]} {
        incr array($num)
      } else {
        set array($num) 1
      }
    }
  }
  close $fh
}

proc print_report {arrayname} {
  upvar $arrayname array
  puts "Interface    Frequency"
  set fmt "%s             %d"
  foreach {interface number} [array get array] {
    puts [format $fmt $interface $number]
  }
}

# the following is a proc that takes the question's code
# and incorporates the calls to the accounting functions
proc dosearch {} {
  set files [glob *.txt]
  if { [llength $files] > 0 } {
    puts "Files:"
    foreach f [lsort $files] {
      puts "    [file size $f] - $f"
      scan_for_interface $f tally
    }
    print_report tally
  } else {
    puts "(no files)"
  }
}

Answer 2

我不是全局变量的忠实粉丝，我会选择 Trey 使用的东西，但让它返回当前文件结果的字典（或数组获取），并将它们合并到维护在的字典（或数组）中呼叫者级别。