[perl] Экранирование кавычек

[ProFTP]

есть запись

Код: Выделить всё

print "content-type:text/html....";

мне нужно вставить JavaScript, чтобы в любом случае можно было бы писать знак кавычки:

Код: Выделить всё

"

можно так, экранируя:

Код: Выделить всё

print "content-type:\"text/html\"....";

как "взять" текст, написать эти кавычки, чтобы не экранировать знаком \ ??
пробовал, но не получается, все вермя отваливается

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[unix-admin]

А так:

Код: Выделить всё

print "content-type:'text/html'....";

..?

[ProFTP]

нужно написать так:

Код: Выделить всё

oncontextmenu="return show_calendar('start',null,'to')"

если так, то не работает

Код: Выделить всё

oncontextmenu='return show_calendar('start',null,'to')'

ЗЫ: это как-то можно на перле написать, есть несколько вариантов, я просто не могу найти и понять как записать...

[hizel]

RTFM http://perldoc.perl.org/perlop.html#Quo ... -Operators

[ProFTP]

RTFM http://perldoc.perl.org/perlop.html#Quo ... -Operators

я это читал, но оно не работало точнее работало...

сделал!

проблема была в том что при таком варианте:

Код: Выделить всё

print q(content-type:text/html\n\n ...............""...);

выводило ошибку 500 и вродебы писало, что не может распарсить

а так:

Код: Выделить всё

print "content-type:text/html\n\n";
print q(cont "sdf" s);

работает!!

[thefree]

что я делаю не так?

Код: Выделить всё

/root/>perl -e 'print qq{type:text/html\n\n ...............""...\n};'
type:text/html

 ...............""...

Учите мат. часть!!!

[ProFTP]

что я делаю не так?

Код: Выделить всё

/root/>perl -e 'print qq{type:text/html\n\n ...............""...\n};'
type:text/html

 ...............""...

Учите мат. часть!!!

проблема была в том что при таком варианте:

Код: Выделить всё

print q(content-type:text/html\n\n ...............""...);

выводило ошибку 500 и вродебы писало, что не может распарсить

а так:

Код: Выделить всё

print "content-type:text/html\n\n";
print q(cont "sdf" s);

работает!!

если зайти с браузера, то ошибка 500

только что еще раз попробовал, ради интеерса:

выдали ошибку 500

Код: Выделить всё

print q(content-type:text/html\n\n<script src='http://ajax.googleapis.com/ajax/libs/jquery/1.4.4/jquery.min.js' type='text/javascript'></script> sdf);

а тут нет

Код: Выделить всё

print "content-type:text/html\n\n<script src='http://ajax.googleapis.com/ajax/libs/jquery/1.4.4/jquery.min.js' type='text/javascript'></script> sdf";

сделал! тема не актуальная

[thefree]

Учите мат. часть!!! И научитесь НОРМАЛЬНО ЧИТАТЬ ДОКУМЕНТАЦИЮ !!!
===
костыле строением не устали заниматься?!

[hizel]

ну выдыхай уже, зачем ты нервничаешь :-) нервные клетки не восстанавливаются!

[Гость]

оператор q() не интерполирует ничего, а qq() интерполирует. Поэтому print q(\n) выведет '\n', а print qq(\n) переведёт строку на следующую.

[hizel]

[thefree]

ну выдыхай уже, зачем ты нервничаешь :-) нервные клетки не восстанавливаются!

print "content-type:text/html\n\n"; - это пиздец ...

[hizel]

еще ровнее дыши! таак! идешь к успеху ;-)

[ProFTP]