¿Cuál es la forma más eficiente de verificar si una cadena comienza con un cierto carácter en TCL?

Question

Tengo una cadena, y quiero comprobar si comienza con un cierto carácter (# en este caso). Me gustaría saber la forma más eficiente de hacerlo.

Lo que estoy pensando es if {[string compare -length 1 $string "#"]}, porque podría usar strcmp() que probablemente sea una de las formas más rápidas de lograr esto.

Lo que creo que también es posible es if {[string index $string 1] == "#"}, porque podría hacer * string == '#', que probablemente también sea muy rápido.

¿Qué opinas?

Answer 1

El método más rápido de comprobar si una cadena comienza con un carácter específico es string match:

if {[string match "#*" $string]} { ... } 

El código para hacer el juego ve que hay una estrella después de que el primer carácter y luego el final de la cadena, y así deja de examinar el resto de $string. Tampoco requiere ninguna asignación de un resultado (que no sea booleano, que es un caso especial ya que string match también está compilado por código de bytes).

Answer 2

Sí [string match "*" $ string_name] esto es lo que funcionó para mí. Esto es realmente rápido en comparación con regexp o cualquier otra utilidad.