Форум АНТИЧАТ - Показать сообщение отдельно

Цитата:

Определяет пол по имени, на основе того, что большинство женских имён заканчиваются на гласную. Определяет не 100% но для моих целей хватает. Поддерживает имена в транслите...

А не лучше ли сделать выбор "ИЛИ" вместо явного указания каждой буквы?

Код:

sub gender # 1 - woman; 0 - man
{
	my ($name) = @_;
	return 1 if $name=~"(я|а|о|ы|э|е|a|o|i|e|Я|А|О|Ы|Э|Е|A|E|O|I)\$";
	return 0;
}