include virtual и символ # в параметрах

[toypaul]

Делаю такой include



На первой же решетке строка обрезается. Пробовал передавать &35; - тоже самое. Не врубаюсь я тогда - как передать символ решетки скрипту.

[Chs]

Код: [Выделить]

#!/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

[toypaul]

Так если в коде строку задаешь, то наверное без проблем будет. У меня же из HTML страницы идет передача скрипту - такое чувство, что до сервера не доходит. Хотя... Попробую. Заранее спасибо.

[toypaul]

Все! Доперло... . Снимаю шляпу! Однако подумать пришлось . Заменил в строке # на %23. Заюзал CGI::Util qw(unescape). Унэскейпил и все пучком!