ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Dmitriy Goldobin                     2:5020/400     01 Aug 2000  05:09:45
 To : All
 Subject : Re: трабла
 -------------------------------------------------------------------------------- 
 

 Hi!
 
 > А ты подумай, как бы ты _словами_ описал требуемое действие, чтоб его
 > секретарша поняла. После чего тупо переводи на язык регексов.
 >
 > $d =~ m#//(?:[^/]+@)?([^/]+)#;
 > $host = $1;
 
 Смотря как формализуешь. :) Можно и так:
 
 my($host) = $url =~ m'([^/@:]+)(?:/|$)';
 
 не привязано к наличию http:// или пути
 
 Bye.
 --- ifmail v.2.15dev5
  * Origin: Electronic Microsystems JSC (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор