Как еще скрыть URL в тексте?

Question

[niceteg]

Приветствую!

Есть регулярные выражения с помощью которых в комментариях вырезается URL:

<?
$comment = eregi_replace(
                     '(((f|ht){1}tp://)[-a-zA-Z0-9@:%_\+.~#?&//=]+)',
                     '[URL скрыт]', $comment);
$comment = eregi_replace(
                     '([[:space:]()[{}])(www.[-a-zA-Z0-9@:%_\+.~#?&//=]+)',
                     '[URL скрыт]', $comment);
$comment = eregi_replace( 
                     'www.[-a-zA-Z0-9@:%_\+.~#?&//=]+',
                     '[URL скрыт]', $comment);
?>

Но вырезаются только те URL в которых присутствует http и/или www.

Подскажите регулярку для замены URL вида: exemple.com, exemple.net.ua или exemple.ru.

Спасибо.

Comments

[un_def]

Извините, но:

Warning This function has been DEPRECATED as of PHP 5.3.0. Relying on this feature is highly discouraged.

[niceteg]

спасибо, учту!

[h8nor]

https://en.wikipedia.org/wiki/Percent-encoding

' //codereview.stackexchange.com/questions/140703
Public Function PercentEncode(ByRef asciiText As String, Optional signPrefix As String = "%") As String
  Dim char As Long, asciiChars() As Byte
  
  If Not asciiText = vbNullString Then
    ' //learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/strconv-function
    asciiChars = StrConv(asciiText, vbFromUnicode) ' String To Array(Byte)
    
    ReDim hexChars(LBound(asciiChars) To UBound(asciiChars)) As String
    
    For char = LBound(asciiChars) To UBound(asciiChars)
      hexChars(char) = Right("00" & Hex(asciiChars(char)), 2)
    Next char

    PercentEncode = signPrefix & Join(hexChars, signPrefix)
  Else
    PercentEncode = asciiText
  End If
End Function

Answer 1

[Андрей Буров]

eregi — deprecated
можно как-то так.

$text = preg_replace('/[a-z0-9\.]+(\.(ru|net|com))+/i','[URL скрыт]',$text);

Comments

[niceteg]

Спасибо!
eregi_replace — тоже убрал.

Answer 2

[Глеб Старков]

А зачем?
Кому надо, тот напишет: example[dot]com

Comments

[niceteg]

Сам не понимаю зачем… но нужно )