Tcl中解析行的正则表达式

Question

我需要一个正则表达式来分隔此模式的左侧和右侧部分。。。。。：例如：

Media State . . . . . . . . . . . : Media disconnected
   Connection-specific DNS Suffix  . : alumnus.co.in
   Description . . . . . . . . . . . : Microsoft ISATAP Adapter
   Physical Address. . . . . . . . . : 00-00-00-00-00-00-00-E0
   DHCP Enabled. . . . . . . . . . . : No
   Autoconfiguration Enabled . . . . : Yes

并将它们存储在两个变量中。我已经写了这个正则表达式

regexp {([[a-z]*[0-9]*.*[0-9]*[a-z]*]*" "):([[a-z]*[0-9]*.*[0-9]*[a-z]*]*)} 6*rag5hu. . :4ku5-1a543m match a b 

但它不起作用。任何帮助都将不胜感激。

Answer 1

我会这样做：

set text {Media State . . . . . . . . . . . : Media disconnected
   Connection-specific DNS Suffix  . : alumnus.co.in
   Description . . . . . . . . . . . : Microsoft ISATAP Adapter
   Physical Address. . . . . . . . . : 00-00-00-00-00-00-00-E0
   DHCP Enabled. . . . . . . . . . . : No
   Autoconfiguration Enabled . . . . : Yes}

foreach line [split $text \n] {
    if {[regexp {^(.+?)(?: \.)+ : (.+)$} $line -> name value]} {
        puts "$name => $value"
    }
}

输出

Media State => Media disconnected
   Connection-specific DNS Suffix  => alumnus.co.in
   Description => Microsoft ISATAP Adapter
   Physical Address. => 00-00-00-00-00-00-00-E0
   DHCP Enabled. => No
   Autoconfiguration Enabled => Yes

这使用了一个非贪婪的量词(+?)，这使得正则表达式中的每个量词都是非贪婪的。然后，您需要锚点，以便您想要捕获的位包含所需的所有文本。

Answer 2

借用text的定义

package require textutil

foreach line [split $text \n] {
    lassign [::textutil::splitx [string trim $line] {\s*(?:\. )+:\s*}] a b
    puts "a: $a\nb: $b"
}

给出输出

a: Media State
b: Media disconnected
a: Connection-specific DNS Suffix
b: alumnus.co.in
a: Description
b: Microsoft ISATAP Adapter
a: Physical Address
b: 00-00-00-00-00-00-00-E0
a: DHCP Enabled
b: No
a: Autoconfiguration Enabled
b: Yes

文档：foreach、lassign、package、puts、split、string、textutil (package)