Perl: парсинг URL

[agbr]

Ищется самый короткий (и быстрый) в языке Perl способ разбить URL (напрмер "http://www.kernel.org/pub/linux/kernel/v2.4/patch-2.4.28.bz2") на три части (три строки):
1) $servername=="www.kernel.org"
2) $filepath=="/pub/linux/kernel/v2.4/"
3) $filename=="patch-2.4.28.bz2"

[nercus]

Код: Выделить всё

$_ = $url;
s!^http://!!;
my ($servername,$filepath,$filename) = split(/(\/.+\/)/);

[madskull]

my ($servername,$filepath,$filename) = $url =~ m#^http://(.+?)/(.+)/(.+)$#;

А вообще-то есть классы, типа URI. Если в них разобраться, то использовать их проще и безопаснее.

[xorader]

Именно безопасней... ребята на этом собаку сьели - в смысле на уязвимостях как раз в разборе URI, так что лучше довериться либе (или посмотреть её код - как вариант).