The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка  RSS
"Проблема CGI-скрипта на TCL"
Вариант для распечатки  
Пред. тема | След. тема 
Форум WEB технологии (Разное)
Изначальное сообщение [ Отслеживать ]

"Проблема CGI-скрипта на TCL"  +/
Сообщение от бродяга email on 06-Июл-10, 13:21 
Здравствуйте.
Проблема следующая.
Пишу на локальной машине с использованием Дервера скриптик. Скрипт формирует веб-страницу с полями ввода, и т.д. Все введенные данные с формы записываются в локальный файл. С Денвером все отлично пашет, но вот переношу на сервер, и тут начинаются проблемы:
При чтении из файла строк, и занесении их в таблицу веб-страницы, читается почему-то только первая часть (используется разбиение до пробела в строке)
вот код:

set in [open "dbase.txt" r]
while {[gets $in line] != -1} {
    puts "<tr>"
    puts "<td align=center>[string range $line 0 [string first " " $line 0]]</td>"
    puts "<td align=center>[string range $line [string first " " $line 0]+1 [string first " " $line [string first " " $line 0]+1]]</td>"
    puts "<td align=center>[string range $line [string first " " $line [string first " " $line 0]+1]+1 [string first " " $line [string first " " $line [string first " " $line 0]+1]+1]]</td>"
    puts "<td align=center>[string range $line [string first " " $line [string first " " $line [string first " " $line 0]+1]+1]+1 end]</td>"
    puts "</tr>"
}
close $in

На локальной машине все красиво берется из файлика, и записывается в табличку с 4 столбцами, а при запуске скрипта с сервера, первая строчка цикла выполняется только один раз. Причем если закомментировать строки

puts "<td align=center>[string range $line [string first " " $line 0]+1 [string first " " $line [string first " " $line 0]+1]]</td>"
    puts "<td align=center>[string range $line [string first " " $line [string first " " $line 0]+1]+1 [string first " " $line [string first " " $line [string first " " $line 0]+1]+1]]</td>"
    puts "<td align=center>[string range $line [string first " " $line [string first " " $line [string first " " $line 0]+1]+1]+1 end]</td>"

то первый столбец таблицы выводится вполне адекватно.

В чем может быть проблема?

Высказать мнение | Ответить | Правка | Cообщить модератору

Оглавление

Сообщения по теме [Сортировка по времени | RSS]


1. "Проблема CGI-скрипта на TCL"  +/
Сообщение от бродяга email on 07-Июл-10, 10:44 
>[оверквотинг удален]
>с 4 столбцами, а при запуске скрипта с сервера, первая строчка
>цикла выполняется только один раз. Причем если закомментировать строки
>
>puts "<td align=center>[string range $line [string first " " $line 0]+1 [string first " " $line [string first " " $line 0]+1]]</td>"
>    puts "<td align=center>[string range $line [string first " " $line [string first " " $line 0]+1]+1 [string first " " $line [string first " " $line [string first " " $line 0]+1]+1]]</td>"
>    puts "<td align=center>[string range $line [string first " " $line [string first " " $line [string first " " $line 0]+1]+1]+1 end]</td>"
>
>то первый столбец таблицы выводится вполне адекватно.
>
>В чем может быть проблема?

Разобрался....
на сервере почему-то возвращение индекса первого вхождения символа в строку осуществляется строковым значением...

Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

Архив | Удалить

Рекомендовать для помещения в FAQ | Индекс форумов | Темы | Пред. тема | След. тема




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру