Tcl -- split/join

1. Split

语法：split string ?splitChars?

Split a string into a proper Tcl list

把字符串string 按分隔符splitChars 分成一个个单词，返回由这些单词组成的串。

如果splitChars是一个空字符{ }，string 被按字符分开。如果splitChars 没有给出,以空格为分隔符.

## Read the file
set fid [open /etc/passwd]
set content [read $fid]
close $fid

## Split into records on newlines
set records [split $content "\n"]

## Iterate over the records
foreach rec $records {

   ## Split into fields on colons
   set fields [split $rec ":"]

   ## Assign fields to variables and print some out...
   lassign $fields \
         userName password uid grp longName homeDir shell
   puts "$userName uses [file tail $shell] for a login shell"
}

2. Join

语法: join list ?joinString?

join - Create a string by joining together list elements

join 命令是命令的逆。这个命令把list 的所有元素合并到一个字符串中，中间以joinString 分开。缺省的joinString 是空格。

例子：