LINUX.ORG.RU

История изменений

Исправление KennyMinigun, (текущая версия) :

О, хосспаде, щас тут начнут советовать регекспы. 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, :

О, хосспаде, щас тут начнут советовать регекспы. 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, :

О, хосспаде, щас тут начнут советовать регекспы. 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) {
    my $uri = URI->new($_);
    say $uri->host();
}

Исходная версия KennyMinigun, :

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

Use URI, Luke.