Доброго времени суток, коллеги!Подскажите как можно привести URLы вида:
http://someurl1.com/первая-страница/
к:
http://someurl1.com/п©п╣я─п╡п╟я▐-я│я┌я─п╟п╫п╦я├п╟/Пользуюсь online-конвертором, но это не удобно, т.к. урлов очень много, к тому же он конвертирует так же символы, а мне нужно, чтобы конвертировались только не ascii-символы.
Все это мне нужно для блокировки данных URL на оборудовании, которое поддерживает только латиницу.
Спасибо!
>[оверквотинг удален]
> Подскажите как можно привести URLы вида:
> http://someurl1.com/первая-страница/
> к:
> http://someurl1.com/п©п╣я─п╡п╟я▐-я│я┌я─п╟п╫п╦я├п╟/
> Пользуюсь online-конвертором, но это не удобно, т.к. урлов очень много, к тому
> же он конвертирует так же символы, а мне нужно, чтобы конвертировались
> только не ascii-символы.
> Все это мне нужно для блокировки данных URL на оборудовании, которое поддерживает
> только латиницу.
> Спасибо!Прошу прощения, когда опубликовал вид ссылок изменился :)
должно быть: %D0%BF%D0%B5%D1%80%D0%B2%D0%B0%D1%8F-%D1%81%D1%82%D1%80%D0%B0%D0%BD%D0%B8%D1%86%D0%B0 в конечном варианте.
>> Подскажите как можно привести URLы вида:
>> http://someurl1.com/первая-страница/
> Прошу прощения, когда опубликовал вид ссылок изменился :)http://www.opennet.me/openforum/vsluhforumID4/416.html На оба Ж-) поста.
>>> Подскажите как можно привести URLы вида:
>>> http://someurl1.com/первая-страница/
>> Прошу прощения, когда опубликовал вид ссылок изменился :)
> http://www.opennet.me/openforum/vsluhforumID4/416.html На оба Ж-) поста.Андрей, спасибо! Но он конвертирует ВСЮ стоку к такому виду, а мне нужно только НЕ ascii-символы (т.е. английский алфавит и символы оставить как есть).
> нужно только НЕ ascii-символы (т.е. английский алфавит и символы оставить как есть).|recode ..h
- решил бы, *почти*, но перл ниже, судя по всему, короче и быстрее.
Если локаль UTF-8, и от перла не коробит, то как-то так:
$ echo "someurl1.com/первая-страница/" | perl -ne 's/([^\x00-\x7f])/sprintf "%%%2X", ord $1/ge; print'PS. А ссылки движок форума действительно коверкает изрядно :-(
> Если локаль UTF-8, и от перла не коробит, то как-то так:
>$ echo "someurl1.com/первая-страница/" | perl -ne 's/([^\x00-\x7f])/sprintf
> "%%%2X", ord $1/ge; print'
> PS. А ссылки движок форума действительно коверкает изрядно :-(Спасибо! То, что нужно!:)
> Если локаль UTF-8, и от перла не коробит, то как-то так:
>$ echo "someurl1.com/первая-страница/" | perl -ne 's/([^\x00-\x7f])/sprintf
> "%%%2X", ord $1/ge; print'
> PS. А ссылки движок форума действительно коверкает изрядно :-(Perl - не Shell :)
> Perl - не Shell :)Отжежблин! Мне правда стыдно. Хны...
Ждём решения на чистом шелле :-) Интим^W sed, awk и прочая не предлагать!
>> Perl - не Shell :)
> Отжежблин! Мне правда стыдно. Хны...
> Ждём решения на чистом шелле :-) Интим^W sed, awk и прочая не
> предлагать!На чистом посикс-шеле (какой версии посикса?? какой реализации? версии реализации?!), или на bash 4.1+, или configure.ac со сборкой портабельного .sh, или $??? ? B*)
>>> Perl - не Shell :)
>> Ждём решения
> или на bash 4.1+,Ну... Дождались!!
$ bash --version |awk '{print$4;exit}'
4.1.2(1)-release
$ xx() { local S="$1" D= LANG=C;while [ "$S" ]; do if [[ "$S" =~ ^[[:print:]]+ ]]; then D="$D${BASH_REMATCH[0]}"; S="${S:$((${#BASH_REMATCH[0]}))}"; else D="$D%$(printf "%02x" "'${S:0:1}")"; S="${S:1}"; fi; done; echo "$D"; }
$ xx https://ru.wikipedia.org/wiki/Оболочка_операционной_системы
https://ru.wikipedia.org/wiki/%d0%9e%d0%...
$ _