LINUX.ORG.RU

как на перле из url или строки с url-ами получить только доменное имя ? плиз скиньте код


0

1

Есть вот такие строки со всем известного ресурса, так вот нужно чтобы переменной после обработки строки было присвоено только доменное имя, для последующего поиска по доменному имени IP адреса. Без слешей, «http» и ":" и .т.д.

http://www.everychina.com/f-z52dbdde/products.html
http://www.phrack.org/issues.html?issue=4&id=8#article
http://gramrc.org/threads/%D0%9D%D0%9E%D0%92%D0%9E%D0%9A%D0%A3%D0%97%D0%9D%D0%95%D0%A6%D0%9A-%D0%A0%D0%90%D0%97%D0%94%D0%90%D0%A7%D0%90-7-%D0%9C%D0%98-%D0%9F%D0%A0%D0%9E%D0%91-%D0%97%D0%90%D0%9F%D0%98%D0%A1%D0%AB%D0%92%D0%90%D0%95%D0%9C%D0%A1%D0%AF.1963/
http://www.autosativa.com/index.php?main_page=product_info&cPath=68_85&products_id=643
http://durmagen.com/kuritelnye-smesi-v-moskve-–-vozmozhno-li-takoe
http://nnm-club.me/forum/viewtopic.php?t=660892 , http://nnm-club.me/forum/viewtopic.php?t=660433 , http://nnm-club.me/forum/viewtopic.php?t=644959 , http://nnm-club.me/forum/viewtopic.php?t=660503 , http://nnm-club.me/forum/viewtopic.php?t=660974 , http://nnm-club.me/forum/viewtopic.php?t=660724 , http://nnm-club.me/forum/viewtopic.php?t=644916 , http://nnm-club.me/forum/viewtopic.php?t=645819 , http://nnm-club.me/forum/viewtopic.php?t=477771, http://nnm-club.me/forum/viewtopiс.php?t=660616 , http://nnm-club.me/forum/viewtopic.php?t=54542 , http://nnm-club.me/forum/viewtopic.php?t=3651081, http://nnm-club.me/forum/viewtopic.php?t=52573 , http://nnm-club.me/forum/viewtopic.php?t=684557 , http://nnm-club.me/forum/viewtopic.php?t=647987 , http://nnm-club.me/forum/viewtopic.php?t=660646 , http://nnm-club.me/forum/viewtopic.php?t=572242 , http://nnm-club.me/forum/viewtopic.php?p=5557839 , http://nnm-club.me/forum/viewtopic.php?t=659121 , http://nnm-club.me/forum/viewtopic.php?t=646478 , http://nnm-club.me/forum/viewtopic.php?t=660381 , http://nnm-club.me/forum/viewtopic.php?t=653681 , http://nnm-club.me/forum/viewtopic.php?t=660537 , http://nnm-club.me/forum/viewtopic.php?t=660380, http://nnm-club.me/forum/viewtopic.php?t=653667 , http://nnm-club.me/forum/viewtopic.php?t=52358 , http://nnm-club.me/forum/viewtopic.php?t=52166 , http://nnm-club.me/forum/viewtopic.php?t=47027 , http://nnm-club.me/forum/viewtopic.php?t=660780 , http://nnm-club.me/forum/viewtopic.php?t=645881 , http://nnm-club.me/forum/viewtopic.php?t=645815 , http://nnm-club.me/forum/viewtopic.php?t=653686 , http://nnm-club.me/forum/viewtopic.php?t=629056 , http://nnm-club.me/forum/viewtopic.php?t=418968, http://nnm-club.me/forum/viewtopiс.php?t=654318 , http://nnm-club.me/forum/viewtopic.php?t=645214 , http://nnm-club.me/forum/viewtopic.php?t=3645153 , http://nnm-club.me/forum/viewtopic.php?t=645896 , http://nnm-club.me/forum/viewtopic.php?t=646077 , http://nnm-club.me/forum/viewtopic.php?t=645170 , http://nnm-club.me/forum/viewtopic.php?t=660453 , http://nnm-club.me/forum/viewtopic.php?t=647934, http://nnm-club.me/forum/viewtopic.php?t=647255 , http://nnm-club.me/forum/viewtopic.php?t=663296, http://nnm-club.me/forum/viewtopic.php?t=660970 , http://nnm-club.me/forum/viewtopic.php?t=661233 , http://nnm-club.me/forum/viewtopic.php?t=629250 , http://nnm-club.me/forum/viewtopiс.php?t=660703 , http://nnm-club.me/forum/viewtopic.php?t=660543 , http://nnm-club.me/forum/viewtopic.php?t=648078 , http://nnm-club.me/forum/viewtopic.php?t=684617, http://nnm-club.me/forum/viewtopic.php?t=647723 , http://nnm-club.me/forum/viewtopic.php?t=674403 , http://nnm-club.me/forum/viewtopic.php?t=671129

Просьба кинуть пару строк кода который это делает.
Спасибо за подсказки.

★★★

используй регекспы.

Спасибо за подсказки

пожалуйста.

Stil ★★★★★ ()
pcregrep -o2 '(?<=http://)(www\.)?([^/]+)'
anonymous ()

Небольшой оффтоп

А правда, что за однострочники на пёрле скор снимают? Что-то такое смутно припоминается…

Apple-ch ★★ ()

во

#!/usr/bin/perl
use strict;

$_ = '
http://www.everychina.com/f-z52dbdde/products.html
http://www.phrack.org/issues.html?issue=4&id=8#article
http://gramrc.org/threads/%D0%9D%D0%9E%D0%92%D0%9E%D0%9A%D0%A3%D0%97%D0%9D%D0%95%D0%A6%D0%9A-%D0%A0%D0%90%D0%97%D0%94%D0%90%D0%A7%D0%90-7-%D0%9C%D0%98-%D0%9F%D0%A0%D0%9E%D0%91-%D0%97%D0%90%D0%9F%D0%98%D0%A1%D0%AB%D0%92%D0%90%D0%95%D0%9C%D0%A1%D0%AF.1963/
http://www.autosativa.com/index.php?main_page=product_info&cPath=68_85&products_id=643
http://durmagen.com/kuritelnye-smesi-v-moskve-–-vozmozhno-li-takoe
http://nnm-club.me/forum/viewtopic.php?t=660892 , http://nnm-club.me/forum/viewtopic.php?t=660433 , http://nnm-club.me/forum/viewtopic.php?t=644959 , http://nnm-club.me/forum/viewtopic.php?t=660503 , http://nnm-club.me/forum/viewtopic.php?t=660974 , http://nnm-club.me/forum/viewtopic.php?t=660724 , http://nnm-club.me/forum/viewtopic.php?t=644916 , http://nnm-club.me/forum/viewtopic.php?t=645819 , http://nnm-club.me/forum/viewtopic.php?t=477771, http://nnm-club.me/forum/viewtopiс.php?t=660616 , http://nnm-club.me/forum/viewtopic.php?t=54542 , http://nnm-club.me/forum/viewtopic.php?t=3651081, http://nnm-club.me/forum/viewtopic.php?t=52573 , http://nnm-club.me/forum/viewtopic.php?t=684557 , http://nnm-club.me/forum/viewtopic.php?t=647987 , http://nnm-club.me/forum/viewtopic.php?t=660646 , http://nnm-club.me/forum/viewtopic.php?t=572242 , http://nnm-club.me/forum/viewtopic.php?p=5557839 , http://nnm-club.me/forum/viewtopic.php?t=659121 , http://nnm-club.me/forum/viewtopic.php?t=646478 , http://nnm-club.me/forum/viewtopic.php?t=660381 , http://nnm-club.me/forum/viewtopic.php?t=653681 , http://nnm-club.me/forum/viewtopic.php?t=660537 , http://nnm-club.me/forum/viewtopic.php?t=660380, http://nnm-club.me/forum/viewtopic.php?t=653667 , http://nnm-club.me/forum/viewtopic.php?t=52358 , http://nnm-club.me/forum/viewtopic.php?t=52166 , http://nnm-club.me/forum/viewtopic.php?t=47027 , http://nnm-club.me/forum/viewtopic.php?t=660780 , http://nnm-club.me/forum/viewtopic.php?t=645881 , http://nnm-club.me/forum/viewtopic.php?t=645815 , http://nnm-club.me/forum/viewtopic.php?t=653686 , http://nnm-club.me/forum/viewtopic.php?t=629056 , http://nnm-club.me/forum/viewtopic.php?t=418968, http://nnm-club.me/forum/viewtopiс.php?t=654318 , http://nnm-club.me/forum/viewtopic.php?t=645214 , http://nnm-club.me/forum/viewtopic.php?t=3645153 , http://nnm-club.me/forum/viewtopic.php?t=645896 , http://nnm-club.me/forum/viewtopic.php?t=646077 , http://nnm-club.me/forum/viewtopic.php?t=645170 , http://nnm-club.me/forum/viewtopic.php?t=660453 , http://nnm-club.me/forum/viewtopic.php?t=647934, http://nnm-club.me/forum/viewtopic.php?t=647255 , http://nnm-club.me/forum/viewtopic.php?t=663296, http://nnm-club.me/forum/viewtopic.php?t=660970 , http://nnm-club.me/forum/viewtopic.php?t=661233 , http://nnm-club.me/forum/viewtopic.php?t=629250 , http://nnm-club.me/forum/viewtopiс.php?t=660703 , http://nnm-club.me/forum/viewtopic.php?t=660543 , http://nnm-club.me/forum/viewtopic.php?t=648078 , http://nnm-club.me/forum/viewtopic.php?t=684617, http://nnm-club.me/forum/viewtopic.php?t=647723 , http://nnm-club.me/forum/viewtopic.php?t=674403 , http://nnm-club.me/forum/viewtopic.php?t=671129
';

my %links;

$links{$1} = 1 while m/http:\/\/(.+?)\//g;

foreach my $link (keys %links){
  print $link."\n";
}

TDrive ★★★★★ ()

Есть вот такие строки со всем известного ресурса

то есть весь топик - это такой извратный SEO способ ???

ну не поверю, что человек пишет/правит что-то на перле, при этом не знает про регекспы и «use URI» и даже не в силах набрать «perl parse url» в любом поисковике..

MKuznetsov ★★★★★ ()
Ответ на: комментарий от TDrive

круто!
как работает строка с while, буду изучать. :) магия перла

Vlad-76 ★★★ ()
Ответ на: комментарий от MKuznetsov

ну что такого что если кто то пишет на перл и чего то не знает
за наводку про модули спасибо
но способ в прошлом посте меня покорил.
собственно чего то такого и ожидал.

Vlad-76 ★★★ ()
import urllib.parse

urls=('http://www.everychina.com/f-z52dbdde/products.html',
'http://www.phrack.org/issues.html?issue=4&id=8#article')

print([urllib.parse.urlparse(i).netloc for i in urls])
anonymous ()

О, хосспаде, щас тут начнут советовать регекспы. WAIT, OH SHI~

Use URI, Luke.

#!/usr/bin/perl
 
use strict;
use warnings;
use feature qw(say);
use URI;
 
my @uris = (
    'http://www.phrack.org/issues.html?issue=4&id=8#article',
    'http://www.autosativa.com/index.php?main_page=product_info&cPath=68_85&products_id=643',
    # тут еще
);
 
for (@uris) {
    say URI->new($_)->host();
}
KennyMinigun ★★★★★ ()
Последнее исправление: KennyMinigun (всего исправлений: 3)
Ответ на: Небольшой оффтоп от Apple-ch

А правда, что за однострочники на пёрле скор снимают?

А ведь уже на фразу «как на перле...» рефлексы срабатывают именно на определенную категорию однострочников.

Corey ()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.