tcl拆分目录年字符串

我有各种各样的可能

例如：

USA.LA.2017-02-02 EU.2016-04-04 EU.FR.Paris.2014-05-05 CA.Que.Ed.Cal.2013-04-04 不幸的是，在我的tcl中它并不总是正确的

set foo [join [lrange [split $name .] 0 1] .]
set replaced_relname [string map {. " "} $foo]

---

有人有不同的想法吗？

使用

lrange

只删除最后一个元素

set dirnames { USA.LA.2017-02-02  EU.2016-04-04  EU.FR.Paris.2014-05-05  CA.Que.Ed.Cal.2013-04-04 }

foreach dirname $dirnames {
    set string [join [lrange [split $dirname .] 0 end-1]]
    puts $string
}

---

如果输出中确实需要

美国

和

洛杉矶

之间的

，则需要特殊情况。

set dirnames { USA.LA.2017-02-02  EU.2016-04-04  EU.FR.Paris.2014-05-05  CA.Que.Ed.Cal.2013-04-04 }

foreach dirname $dirnames {
    set string [join [lrange [split $dirname .] 0 end-1]]
    puts $string
}

USA LA
EU
EU FR Paris
CA Que Ed Cal