https://www.opennet.ru/openforum/vsluhforumID9/4061.html День добрый,<br><br>Странная проблема. Судите сами...<br><br>Иначально: Система FreeBSD 4.9. Из портов поставлен TCL8.3 и <br>библиотека Sqlite 2.8.3 c tcl wrappers.<br>Пришется скрипт для учета времени работы клиентов в интернете.<br><br>Исходный текст (err.tcl):<br><br>#!/usr/local/bin/tclsh8.4<br><br>package require sqlite;<br>set namedb "/usr/local/Bscript/session.db";<br><br>set IFNAME [lindex $argv 0]; # Intarface name<br>set AUTHNAME [lindex $argv 1]; # Authname <br>set STARTTIME [clock seconds]; # Current time<br><br>sqlite sesdb $namedb;<br><br>sesdb eval {INSERT INTO sestbl (authname, starttime, stoptime, ifname, traffic) VALUES ( $AUTHNAME, $STARTTIME , $STARTTIME, $IFNAME, 0)};<br><br>sesdb close;<br><br>При запуске скрипта:<br>$./err.tcl ccc vvv<br><br>Получаем следующее:<br><br>unrecognized token: "$"<br> while executing<br>"sesdb eval {INSERT INTO sestbl (authname, starttime, stoptime, ifname, traffic) VALUES ( $AUTHNAME, $STARTTIME , $STARTTIME, $IFNAME, 0)}"<br> (file "./err.tcl" line 12)<br><br>Такое очущение что tcl в конкретном случае отказывае https://www.opennet.ru/openforum/vsluhforumID9/4061.html#3 Wed, 06 Jul 2011 06:35:14 GMT Привет.<br>Столкнулся со схожей проблемой в случае замены подстрок XXKADRXX на переменную $coor (определена ранее) в текстовых файлах .svrf<br><br>set file_list [glob *.svrf]<br><br>foreach F $file_list {<br><br>set infile [open $F] <br>set contents [read $infile] <br>close $infile<br><br>set contents [string map {XXKADRXX "$coor"} $contents] <br>set outfile [open $F w] <br>puts -nonewline $outfile $contents <br>close $outfile <br>}<br><br>Буду очень благодарен за мнения)<br> https://www.opennet.ru/openforum/vsluhforumID9/4061.html#2 Mon, 14 Mar 2005 09:27:39 GMT &gt;Все очень просто - TCL не производит подстановку переменныых в блоке обрамленном <br>&gt;{} - этот блок просто считается списком констант. <br>&gt;Но как только вы обрамляете его еще и кавычками "" подстановка происходит <br>&gt;- теперь это законная строка ;-) <br>&gt;В Вашем случае правильнее сделать так (замена {} на ""): <br>&gt;sesdb eval "INSERT INTO sestbl (authname, starttime, stoptime, ifname, traffic) VALUES ( <br>&gt;$AUTHNAME, $STARTTIME , $STARTTIME, $IFNAME, 0)" <br>&gt;тогда будет все правильно - tcl произведет подстановки и передаст в sqlite <br>&gt;правильную строку. <br><br>Хм... Действительно. Сие писалось с оглядкой на примеры, приведенные на <br>www.sqlite.org, а там у них везде используются именно фигурные скобки. <br>Мне казалось они должны знать толк в TCL, тем более, что tcl wrappers<br>у них идет вместе с сырцами.<br><br>&gt;P.S. Не ставьте ; в конце каждой строки скрипта - эт необязательно <br>&gt;;-) <br><br>Ну, IMHO, лучше перебдеть, чем недобдеть. С синтаксисом еще <br>не освоился толком, по этому перестраховываюсь.<br> https://www.opennet.ru/openforum/vsluhforumID9/4061.html#1 Mon, 14 Mar 2005 02:32:11 GMT Все очень просто - TCL не производит подстановку переменныых в блоке обрамленном {} - этот блок просто считается списком констант.<br>Но как только вы обрамляете его еще и кавычками "" подстановка происходит - теперь это законная строка ;-)<br>В Вашем случае правильнее сделать так (замена {} на ""):<br>sesdb eval "INSERT INTO sestbl (authname, starttime, stoptime, ifname, traffic) VALUES ( $AUTHNAME, $STARTTIME , $STARTTIME, $IFNAME, 0)"<br>тогда будет все правильно - tcl произведет подстановки и передаст в sqlite правильную строку.<br>P.S. Не ставьте ; в конце каждой строки скрипта - эт необязательно ;-)<br><br>