1

Подскажите, пожалуйста, функцию в perl, аналогичную такой функции js,
как encodeURIComponent. То есть в js мы пишем:

var t = encodeURIComponent(document.title);

А в perl надо бы написать:

$t = xyz($title);

Какая функция perl будет эта "xyz"?

В JS составляем ссылку так:
http://connect.mail.ru/share?url='+encodeURIComponent(location.href)+ '&title='+encodeURIComponent(document.title));

А в perl как?

2 ответа 2

1

То есть, на CPAN и в гугле забанили совершенно? Первая же ссылка: URI::Escape

5
  • Спасибо большое за URI::Escape! Так бы сразу и сказали. 12 янв 2012 в 14:35
  • Разработчики ХэшКода! Красную карточку тем, кто упоминает гугл! Без работы останетесь! 12 янв 2012 в 14:37
  • @welcomemyaltai красную карточку надо выдавать тем, кто гуглом пользоваться не умеет и задает такие вопросы. Ничего личного, просто тут не детский сад, а одно из важнейших умений программиста - находить инфу самостоятельно.
    – Sh4dow
    12 янв 2012 в 14:40
  • Шпионы с гугля у вас в... голове. Мне не принципиально, хоть яндекс, хоть яху, хоть поиск мэйл ру. Здесь не для ПРО, но и не ясли. Мнение администрации Сделайте все возможное сами. Перед тем, как задать вопрос, попробуйте исследовать предметную область и найти ответ на вопрос. Если решение не удалось найти, приведите краткую сводку попыток решить проблему. Тем самым участники форума будут избавлены от необходимости искать информацию по теме и получат возможность сосредоточиться на главном - ответе на вопрос.
    – Sh4dow
    13 янв 2012 в 11:23
  • Через поиск нашел решения, такие как во втором ответе, то есть через регулярное выражение. Здесь же хотел спросить именно функцию. И первый же ответ дал подсказку: #!/usr/bin/perl use strict; use URI::Escape; # ... $t = uri_escape($page_title); $u = uri_escape($page_url); print "connect.mail.ru/share?url=$u&title=$t"; 13 янв 2012 в 12:55
1
s/([^a-zA-Z0-9_.,-])/uc sprintf("%%%02x",ord($1))/eg;
3
  • 1
    Тогда уж: s/([^A-Za-z0-9_.~-])/sprintf('%%%02X',ord($1))/ge; Согласно с RFC-3986 или RFC-3987 символ ',' нужно эскейпать, а '~' - нет 12 янв 2012 в 8:42
  • А на CPAN предлагается: $string =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg; это не то? 12 янв 2012 в 14:40
  • это unescape. 12 янв 2012 в 14:44

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.