Perl Strip Regex для URI

Question

Я пытаюсь удалить все https, http, www, /,: и. из имени домена, чтобы создать папку учетной записи пользователя в моей системе. Так что мне нужно сделать URL-адрес, который выглядит так: «https://www.My-Domain.com/» в «My-Domaincom». Я рядом, но просто не могу заставить его работать.

our $DomainAccount = lc($ENV{HTTP_REFERER}); 
    $DomainAccount =~ s/^http:\/\/|^https:\/\///; 
    $DomainAccount =~ s/^www\.|(/.)//; 

Answer 1

Вам просто нужно, чтобы убедиться, что вы подходите http:// или https://, которые необязательно следуют с www., матч и захватить на хост URL часть до первого /, а затем сопоставить остальные, и заменить на обратная ссылка к первой группе захвата $1, и для того, чтобы удалить . из host.com вам нужно использовать вторую группу захвата, как это:

$DomainAccount =~ s/^https?:\/\/(?:www\.)?([^\/.]+)\.([^\/.]+).*/$1$2/i; 

Выход для "https://www.My-Domain.com/": My-Domaincom

См regex demo here.

Примечание. Я добавил флагов без учета регистра /i, чтобы убедиться, что образец может обрабатывать корпус HTTP://.

регулярное выражения совпадений:

• ^ - начало строки
• https?:\/\/ - буквальная последовательность символов http:// или https://
• (?:www\.)? - один или нулевых вхождения буквальной последовательности символов www.
• ([^\/.]+) - Группа 1: один или несколько символов, кроме / и .
• \. - буквальная точка
• ([^\/.]+) - Группа 2: один или несколько других, чем / символов и .
• .* - остальные линии

Для решения комментарий choroba в, вот двухэтапное решение, которое будет работать с URL-адресами, содержащими более одной точки в главной части:

$DomainAccount =~ s/^https?:\/\/(?:www\.)?([^\/]+).*/$1/i; 
$DomainAccount =~ s/\.//g; 

Answer 2

URI может помочь вам, но вы все равно должны удалить www себя:

#! /usr/bin/perl 
use warnings; 
use strict; 

use URI; 

my $url = 'URI'->new('https://www.My-Domain.com/'); 
my $account = $url->host; 
$account =~ s/^[^.]*\.// while 1 != $account =~ tr/.//; 
$account =~ s/\.//; 
print $account, "\n"; 

Это только оставляет верхние и домены второго уровня в результате (попробуйте, например, http://some.very.long.domain.name.com).