Полезные скрипты

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

29.09.2009, 13:51

mr.The

Познавший АНТИЧАТ

Регистрация: 30.04.2007

Сообщений: 1,206

Провел на форуме:
4778940

Репутация: 1257

Отправить сообщение для mr.The с помощью ICQ

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

Код:

sub gender # 1 - woman; 0 - man
{
	my ($name) = @_;

	return 1 if $name=~"я\$";
	return 1 if $name=~"а\$";
	return 1 if $name=~"о\$";
	return 1 if $name=~"ы\$";
	return 1 if $name=~"э\$";
	return 1 if $name=~"е\$";
	
	return 1 if $name=~"a\$";
	return 1 if $name=~"o\$";
	return 1 if $name=~"i\$";
	return 1 if $name=~"e\$";
	
	return 1 if $name=~"Я\$";  # shit
	return 1 if $name=~"А\$";
	return 1 if $name=~"О\$";
	return 1 if $name=~"Ы\$";
	return 1 if $name=~"Э\$";
	return 1 if $name=~"Е\$";
	
	return 1 if $name=~"A\$";
	return 1 if $name=~"E\$";
	return 1 if $name=~"O\$";
	return 1 if $name=~"I\$";

	return 0;
}

ЗЫ. на самом деле я perl не знаю, так что говнокод тут явный.