Данный пост включает в себя примеры регулярных выражений на perl, которыми мы так часто пользуемся в разработке web-приложений. Добро пожаловать под кат.

регулярные выражения perl

Проверка на соответствие email:

$email =~ /^[a-z0-9\.\-_]+\@[a-z0-9\.\-_]+\.[a-z]{2,4}$/i;

Перевод timestamp в человеко-понятный вид:

my $date = '2013-10-05 12:42:06';
$date =~ /(\d{4}).*?(\d{2}).*?(\d{2}).*?(\d{2}).*?(\d{2}).*?(\d{2})/;
return $3, '.', $2, '.', $1;

WMID (12 цифр без пробелов):

$wmid =~ /^\d{12}$/;

Кошелек WMR (префикс R):

$wmr =~ /^R\d{12}$/;

Округление чисел:

$a = 0.25555;
$b = sprintf("%.1f", $a);

Проверка ip-адерса:

$ip =~ /(\d+\.?){4}/;

 

P.S. пост будет обновляться при появлении нового материала.