Интересные решения Perl. Вопросы и ответы

Как узнать, является ли переменная числом?

Достаточно использовать функции следющего вида:

sub is_int($) {
	if ( defined $_[0] && $_[0] =~ m/^[+-]?\d+$/ ) {
		return 1;
	} else {
		return 0;
	}
}

sub is_float($) {
	if ( defined $_[0] && $_[0] =~ m/^[+-]?\d+\.?\d*$/ ) {
		return 1;
	} else {
		return 0;
	}
}

Предложенные функции являются частью модуля SUS::Is_X авторской системы управления содержимым динамического web-сайта.

Опубликовано: 22 апреля 2006 года.