« первая 2
Создано: 06-07-2009 12:08:33 изменено: 21-12-2009 09:37:24  Метки: tcl
Данный скрипт - мой первый опыт в написании tcl/tk программ. Так что не пинайте сильно за несообразности и ляпы. В конце концов я не профессиональный программист, я вообще радиоэлектронщик :) .
В программе используются 3 файла - иконка, файл с растром пунктира и подложка карты; так же в программе есть вызов для запроса данных о сети через прокси на sql, там на выходе данные вида:
1057 просмотров читать далее 0 комментариев

Создано: 02-06-2009 17:28:40 изменено: 17-06-2012 20:08:22  Метки: tcl
1142 просмотров читать далее 0 комментариев

Создано: 16-04-2009 16:07:04 изменено: 09-07-2009 20:37:48  Метки: tcl
библиотека начинается с
package provide name 1.7

создаем индекс
pkg_mkIndex /path

в вызывающей программе
lappend auto_path /path
package require name
778 просмотров 0 комментариев

Создано: 23-02-2009 11:49:03 изменено: 19-12-2009 00:18:54  Метки: regexp tcl

<td>([^<]*)</td> - субрегулярка
regexp -all -inline {[[:<:]][0-9]+[[:>:]]} $a - найти все числа в $a
[A-Za-z] [[:alpha:]] - буквы (2 еще и нелатиницу цепляет)
[0-9] [[:digit:]] \d - цифры
[ \b\f\n\r\t\v] [[:space:]] \s  - пробелы, табуляции, переводы строк
[[:digit:][:alpha:]_] [\d[:alpha:]_] [[:alnum:]_] \w - все буквы, цифры и _
[[:<:]] and [[:>:]] - начало и конец слова
.+\n - помечается максимальный блок до последнего перевода строки
.+?\n - помечается символы до первого перевода строки
</p>
<td>(.*?)</td> - пометить блок между тегами 

опции regsub и regexp:
lineanchor - заставляет рассматривать ^$ как признаки начала и конца строки а не последовательности
linestop - исключает символ переноса из набора .*

853 просмотров 0 комментариев

« первая 2