Есть ли в Tcl эквивалент функции 'string to X', найденной в C stdlib.h?

Question

Существуют стандартные функции, такие как atof и atoi в C stdlib.h для преобразования строк в числа с плавающей запятой / целых чисел (и для выполнения и наоборот). Есть ли в Tcl аналог этого или мне нужно написать собственный процесс для выполнения этих задач?

Answer 1

Все является строкой в Tcl, но функции, которые ожидают число (например, expr), будут использовать эту «строку» как целое число:

% set str " 123 "
 123
% set num [expr $str*2]
246

Если вы хотите отформатировать число определенным образом (например, создать число с плавающей запятой определенной точности), вы можете использовать format:

% set str " 1.234 "
 1.234
% set fnum [format "%.2f" $str]
1.23

Answer 2

Как уже отмечалось, в Tcl все является строкой, поэтому вы можете просто использовать данную строку как целое число или как угодно, что вам нужно.Единственное предостережение в том, что оно должно быть чем-то, что может быть истолковано как то, что вы хотите использовать как (то есть вы можете использовать «a» как целое число)

Вы можете проверить, может ли что-тоинтерпретируется как тип, который вы хотите использовать с помощью подкоманды <a href="http://wiki.tcl.tk/10166" rel="nofollow">string is</a>:

string is integer "5" ;# true
string is integer "a" ;# false
string is list "a b cc" ;# true
string is list "{a b}c" ;# false

Answer 3

Следует также отметить, что эквиваленты atof и atoi можно рассматривать как преобразование внутренних структур данных Tcl во внешние двоичные представления. Это делается командой [binary format].

Answer 4

В моем случае этот код работал:

set a [string trimleft $a 0] 

Answer 5

Можно проверить string is double $x перед использованием $ x в выражениях.

Например, [string is double 1.2.3] возвращает 0