TCL/TK - Expressões regulares

Expressões regulares são um poderoso meio para realizar pesquisas em strings. A tabela a seguir, apresenta os operadores utilizados em Tcl para realizar buscas em strings, vetores e listas:

Operador	Descrição
expreg|expreg	Compara ambas as expressões.
expreg*	Compara zero ou mais ocorrências de expreg.
expreg+	Compara uma ou mais ocorrências de expreg.
expreg?	Compara zero ou uma ocorrência de expreg.
.	Compara um único caractere.
^	Compara o início da string.
$	Compara o fim da string.
\c	Compara o caractere c mesmo que ele seja especial.
[abc]	Compara o conjunto de caracteres.
[^abc]	Compara os caracteres que não estejam no conjunto.
[a-z]	Compara a faixa de caracteres.
[^a-z]	Compara os caracteres que não estejam na faixa.
()	Agrupa expressões.

Exemplos

puts [regexp {[1-5]} "12345678"]

Retorna 1, pois um dos números de 1 a 5 está incluído na string.  

puts [regexp {[1-5]} "6789"]

Retorna 0, pois nenhum dos números de 1 a 5 está incluído na string. 

set x ""

regexp -nocase {[^def]} "abcdef" x

puts $x

Retorna abc, pois regexp atribuirá à string todos os caracteres que não correspondam à expressão fornecida.   

Expressões regulares são muito usadas em bancos de dados SQL e programas CGI que procuram informações em páginas HTML.