Jaki jest najskuteczniejszy sposób sprawdzenia, czy ciąg zaczyna się od określonej litery w TCL?

Question

Mam ciąg znaków i chcę sprawdzić, czy zaczyna się od określonej litery (w tym przypadku #). Chciałbym poznać najbardziej efektywny sposób robienia tego!

To, o czym myślę, to if {[string compare -length 1 $string "#"]}, ponieważ może użyć metody strcmp(), która prawdopodobnie będzie jednym z najszybszych sposobów osiągnięcia tego.

To, co myślę, że może być również możliwe, to if {[string index $string 1] == "#"}, ponieważ może zawierać * ciąg == "#", który prawdopodobnie będzie również bardzo szybki.

Co myślisz?

Answer 1

Najszybszym sposobem sprawdzenia, czy ciąg rozpoczyna się specyfiką jest string match:

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

Kod zrobić dopasowanie widzi, że nie jest gwiazdą po pierwszym znaku, a następnie koniec napisu, i tak przestaje badać resztę $string. Nie wymaga też alokacji wyniku (innego niż boolowski, co jest szczególnym przypadkiem, ponieważ string match jest również kompilowany bajtowo).

Answer 2

Tak [string match "*" $ string_name] to właśnie dla mnie zadziałało. Jest to naprawdę szybkie w porównaniu z regexp lub jakimkolwiek innym narzędziem.