Regex 我如何使用tcl搜索文件，而只使用部分文件名_Regex_Bash_Foreach_Tcl_Ls

Regex 我如何使用tcl搜索文件，而只使用部分文件名

regex bash tcl

Regex 我如何使用tcl搜索文件，而只使用部分文件名,regex,bash,foreach,tcl,ls,Regex,Bash,Foreach,Tcl,Ls,如果我有一个包含以下文件的文件夹： hello-version-1-090.txt hello-awesome-well-091.txt goodday-087.txt hellooo-874.txt hello_476.txt hello_094.txt 如何使用tcl搜索其中包含“hello”和“091”的文件可能的解决办法：在文件夹中获取ls-l的输出，用'\n'将其拆分，然后在每行上运行foreach，并使用regexp匹配条件。但是如何在文件夹中运行ls-l，并使用tcl记录其内

如果我有一个包含以下文件的文件夹：

hello-version-1-090.txt
hello-awesome-well-091.txt
goodday-087.txt
hellooo-874.txt
hello_476.txt
hello_094.txt

如何使用tcl搜索其中包含“hello”和“091”的文件

可能的解决办法：

在文件夹中获取

ls-l

的输出，用

'\n'

将其拆分，然后在每行上运行

foreach

，并使用regexp匹配条件。但是如何在文件夹中运行

ls-l

，并使用tcl记录其内容（文件名）

使用

glob

，您可以应用该模式并获得符合我们标准的文件名列表

puts [ exec ls -l ]; #Just printing the 'ls -l' output
set myfiles [ glob -nocomplain hello*091*.txt ]
if {[llength $myfiles]!=0} {
    puts "Following files matched your pattern : "
    foreach fname $myfiles {
        puts $fname
    }
} else {
    puts "No files matched your pattern"
}

使用

-nocomplain

的原因是，如果没有与我们的搜索模式匹配的文件，则允许返回空列表而不会出错

输出

sh-4.2# tclsh main.tcl                                                                                                         
total 4                                                                                                                        
-rw-r--r-- 1 root root   0 Mar  4 15:23 goodday-087.txt                                                                        
-rw-r--r-- 1 root root   0 Mar  4 15:23 hello-awesome-well-091.txt                                                             
-rw-r--r-- 1 root root   0 Mar  4 15:23 hello-version-1-090.txt                                                                
-rw-r--r-- 1 root root   0 Mar  4 15:23 hello_094.txt                                                                          
-rw-r--r-- 1 root root   0 Mar  4 15:23 hello_476.txt                                                                          
-rw-r--r-- 1 root root   0 Mar  4 15:23 hellooo-874.txt                                                                        
-rw-r--r-- 1 root root 262 Mar  4 15:24 main.tcl                                                                               
Following files matched your pattern :                                                                                         
hello-awesome-well-091.txt

顺便说一下，关于如何保存

ls-l

输出的查询，只需将输出保存到变量中即可

set result [ exec ls -l ]

然后使用

result

变量，您可以通过逐行循环的方式应用

regexp

，正如您所提到的

但是，我希望使用

glob

将是一种更好的方法

参考资料：

使用

glob