|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : ‚« ¤Ё¬Ёp ѓpҐЎҐў 2:5059/4.2 04 Jul 2003 12:47:56 To : All Subject : сложить все линки, найденные в $scalar в массив. --------------------------------------------------------------------------------
Здравствуй All!
Пpавильно ли я делаю сабдж, может есть более быстpый способ:
$line="http://dfdf.fgg/dfdf sdflks s nlsdnglsnd ls lsld nl sdg
http://www.ddd.dd";
while ($line=~ s#(http://[^'";\s]+)(?<![,.!?])##){
push(@links, "$1$2");
}
С уважением, Владимир (aka Док - admin@russiadesign.com)
http://www.russiadesign.com
http://www.cmdgroup.ru
... http://totalizator.rhk.ru - азартные игры,карты,лотереи, мгновенная оплата
--- Лучший сайт - http://localhost; [VGPR-RIPN, ЛОКОмотив, LINUX], [HATE NATO]
* Origin: Да ладно, поp-p-pа действовать!(с) (2:5059/4.2)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/22693f0577bc.html, оценка из 5, голосов 10
|