TCL regsub для переменной? - PullRequest
Новая
       35

TCL regsub для переменной?

0 голосов
/ 04 октября 2018

Я устанавливаю макросы, Set и Say.Определено в процедурах. 

proc Set {key value args} {
    set ::$key $value
            set "::key2" "$key"
}

proc Say {key} {
puts $key
}

proc Say2 {key} {
set key3 [regsub "\%" $key "\$"]
puts $key3
eval puts $key3
}

Что позволяет мне выполнить следующее: 

Set "test" "this should display this test text"
Say $key2 ;#should display the key "test" which is what we just set
Say $test ;#presents the value of the key test

Вывод 

% Set "test" "this should display this test text"
test
% Say $key2 ;#should display the key "test" which is what we just set
test
% Say $test ;#presents the value of the key test
this should display this test text

Итак, теперь давайте скажемЯ хочу переназначить переменную $ на% 

Set "mouse" "squeak" ;#set key mouse with value string of "squeak"
Say $mouse ;#displays the value as set above correctly
Say2 %mouse ;#start using our own characters to represent variables - switch the % for a $ and then output

Однако я получаю при использовании eval 

 can't read "mouse": no such variable

Выход 

% Set "mouse" "squeak" ;#set key mouse with value string of "squeak"
mouse
% Say $mouse ;#displays the value as set above correctly
squeak
% Say2 %mouse ;#start using our own characters to represent variables
$mouse
can't read "mouse": no such variable

Я нахожу это странным, потому что мы установили его выше, мы можем вспомнить значение, используя стандартный $, и я могу доказать, что regsub в Say2 работает так, как должно, заменяя% на $.

% mouse становится$ mouse, которая является допустимой переменной.Eval $ mouse output без такой переменной

Я что-то упустил?

Спасибо

1 Ответ

0 голосов
/ 04 октября 2018

Проблема с proc: 

proc Say2 {key} {
    set key3 [regsub {%} $key {$}]
    puts $key3
    eval puts $key3 ;# here
}

$mouse не существует в это proc.Он не был передан в качестве параметра и не был создан с помощью set.Однако существует в глобальном пространстве имен.Один из способов добиться этого - использовать uplevel в этом случае: 

proc Say2 {key} {
    set key3 [regsub {%} $key {$}]
    puts $key3
    uplevel puts $key3
}

Другой часто используемый вариант - upvar, чтобы ввести переменную внутрь (хотя в этом случае мы не хотим$ больше): 

proc Say2 {key} {
    set key3 [regsub {%} $key {}]
    puts $key3
    upvar $key3 var
    puts $var
}

PS: я также удалил некоторые обратные слеши, так как они не нужны в этом сценарии.

...