Forum Webscript.Ru
Программирование => Perl => Тема начата: toypaul от 16 Марта 2003, 11:14:22
-
Делаю такой include
На первой же решетке строка обрезается. Пробовал передавать &35; - тоже самое. Не врубаюсь я тогда - как передать символ решетки скрипту.
-
#!/usr/bin/perl
use CGI qw(escape);
$str = \'Select d.izm0, d. izm1 into #need_calc from #temp_tot t, #doc_data d
where t. izm 0 = d. izm0 and t. izm1 = d. izm1 and t.period <> d.period\';
print escape($str);
---------- Perl run ----------
Select%20d.izm0%2C%20d.%20izm1%20into%20%23need_calc%20from%20%23temp_tot%20t%2C%20%23doc_data%20d%0Awhere%20t.%20izm%200%20%3D%20d.%20izm0%20and%20t.%20izm1%20%3D%20d.%20izm1%20and%20t.period%20%26lt%3B%26gt%3B%20d.period
Output completed (0 sec consumed) - Normal Termination
-
Так если в коде строку задаешь, то наверное без проблем будет. У меня же из HTML страницы идет передача скрипту - такое чувство, что до сервера не доходит. Хотя... Попробую. Заранее спасибо.
-
Все! Доперло... :). Снимаю шляпу! Однако подумать пришлось ;). Заменил в строке # на %23. Заюзал CGI::Util qw(unescape). Унэскейпил и все пучком!