如何在所需的格式来显示输入

Question

输入文件包含一些内容，诸如：

15-05-2011 16:05 <DIR>   . 
15-05-2011 16:05 <DIR>   .. 
24-04-2011 16:07 <DIR>   Administrator 
15-05-2011 16:05 <DIR>   confuser 
01-02-2011 20:57 <DIR>   Public 
29-01-2011 19:28 <DIR>   TechM 
12-08-2011 09:36 <DIR>   vt0013487 

我需要在命令行参数

，得到的文件名的输出是在所希望的格式：

Administrator 24-04-2011 16:07 
confuser  15-05-2011 16:05 
Public  01-02-2011 20:57 
TechM   29-01-2011 19:28 
vt0013487  12-08-2011 09:36 

Answer 1

所以你正在做一些固定宽度字段输入解析，只不过最后一个字段是可变长度并延伸到行尾。这很简单。唯一不好的一点是我们需要读取所有行来获取输出格式第一个字段的宽度。

假设你提供读取标准输入（即通过重定向），并希望它在标准输出上（所以你也可以重定向到一个文件）：

##### Read in and compute the width 
set len 0 
while {[gets stdin line] >= 0} { 
    set date [string range $line 0 16] 
    set name [string range $line 36 end] 
    lappend lines $name $date 
    if {[string length $name] > $len} { 
     set len [string length $name] 
    } 
} 
##### Write out as formatted 
foreach {name date} $lines { 
    puts [format "%-*s %s" $len $name $date] 
} 

Answer 2

split打破输入到线，foreach遍历它们，regexp提取字符的相关组从这些行中，format来构造结果字符串（在Tcl中通常不需要format，因为对于常见情况，字符串中的简单变量替换通常工作正常）。

阅读this，this,this和this。对于regexp匹配引擎使用的语法，还需要this。

而且我怀疑你可能试图使用由exec“荷兰国际集团的DOS命令dir而不是使用glob遍历目录和文件本身生成的输出。如果是的话，这是错误的，使用glob

Answer 3

这可能不是回答你的问题：如果你呼吁cmd /c dir，这里有一个办法做到这一点在Tcl中：

package require struct::list 
set files [glob *] 
set maxlen [tcl::mathfunc::max {*}[struct::list map $files {apply {s {string length $s}}}]] 
foreach file [lsort $files] { 
    set datetime [clock format [file mtime $file] -format {%d-%m-%Y %H:%M}] 
    puts [format {%-*s %s} $maxlen $file $datetime] 
}