Показать сообщение отдельно
  #2 (permalink)  
Старый 15.08.2014, 10:30
Аватар для ksa
ksa ksa вне форума
CacheVar
Отправить личное сообщение для ksa Посмотреть профиль Найти все сообщения от ksa
 
Регистрация: 19.08.2010
Сообщений: 14,217

Поскольку раздел Серверные языки и технологии, предложу такой вариант...

n
	s url="example.com/example/page_N"
	w !,$$short(url)
	s url="example.com/example/example/index.php"
	w !,$$short(url)
	q

/// Укоротить URL
short(Url)
	n words,wrd1,wrd2
	s words=$l(url,"/")
	s wrd1=$p(url,"/",1,words-2)
	s wrd2=$p(url,"/",words)
	q wrd1_"/"_wrd2

Вот что выводит

d ^tmp
 
example.com/page_N
example.com/example/index.php
Ответить с цитированием