Регулярка

[Frodo[mW]]

Ну не любят они меня

есть адреса типа

mail.com
127.0.0.1
http://www.mail.com
http://www.mail.com/
http://mail.com

в итоге нужно получить только mail.com. убрать и слеши и хттп и ввв, а если идет только ип, то его не трогать, а оставить в таком же состоянии

[Frodo[mW]]

уже не надо
$host[$i]=~s/^(http:\\/\\/www\\.|http:\\/\\/|www\\.)(.*)/$2/;

[Alone]

Хотя возможно так былобы получше
(^http://www\\.|^http://|^www\\.|^)([^/]*)(/|$)

попробуй прогнать mail.com/ind.html?asd
или http://

[scalar]

@array=qw(
mail.com
127.0.0.1
http://www.mail.com
http://www.mail.com/
http://mail.com);

foreach(@array)
{
   s#^(?:http://)?(?:www\\.)?##;
   s#/$##;
}

print "@array";

[scalar]

OR

foreach(@array)
{
   s#^(?:http://)?(?:www\\.)?##;
   s#/.*$##;
}

[Frodo[mW]]

Всем пасиб

[scalar]

Нет вот ещё быстрое решение для массивов И всё

   my @array=qw(
mail.com
127.0.0.1
http://www.mail.com
http://www.mail.com/index.html?ttt
http://mail.com);

@array=map{m#^(?:http://)?(?:www\\.)?([^/]*)#}@array;
print "@array";