|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Denis Moujjoukhin 2:5018/5 29 Jul 2000 10:10:24 To : Eugeniy Muran' Subject : трабла -------------------------------------------------------------------------------- Пятница Июль 28 2000 09:45. Eugeniy Muran' писал к Denis Moujjoukhin: DM>> Хелп, плиз: есть строка типа "http://dded.d.d.d/dd/d/ddd/dd.html" DM>> урл короче. помогите составить шаблон, чтоб только хост DM>> оставался, (если есть перед хостом имя и пароль, на случай ftp, DM>> тоже отбросить...) $d="http://dd.d.d/dd/dd.html" DM>> $d=~/\/\/(\S+)(?=\/)/; в $1 будет dd.d.d/dd а надо только хост... DM>> хелп. EM> Такое пойдет? >> === Здесь родился url.pl! :) === EM> #!perl -w EM> $url_all="http://dded.d.d.d/dd/d/ddd/dd.html"; EM> ($a, $b, $url)=split(/\//,$url_all); EM> print $url; >> === Здесь скончался url.pl! :( === во! отлично пашет... а я тут через цикл извратился... $d=$url; $d =~ /\/\/(\S+)(?=\/)/; while (1) { $d = $1; last if (!($d =~ /(\S+)\//)); } Пасибо... :) сорри, я еще начинающий тока... * Origin: -=ю Holy Gabber ю=- (2:5018/5) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/175653982adda.html, оценка из 5, голосов 10
|