ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Renat Araslanow 2:5011/119.1 19 Jan 2004 09:08:50
To : Dmitry A. Nikitin
Subject : Переменные окружения CGI
--------------------------------------------------------------------------------
Однажды 19 Jan 04 00:58, Dmitry A. Nikitin писал Ivan Frolcov:
DN> Хотел ещё сделать сравнение доменного имени почтового адреса с введённым
DN> значением и если не совпадает выдавать ошибку.
DN> введённое мыло уже в $input{email}.
DN> @valid_email = ('localhost', 'domain.com');
DN> foreach ($email = @valid_email) {
DN> if ($input{email} =~ /$email/) {
DN> но чего-то не хочет сравнивать. Где накосячил?
perldoc perlsyn на тему конструкции foreach
--- [Преждевременная оптимизация -- корень всех зол Д. Кнут]
* Origin: Чайник с программным управлениемЪ (2:5011/119.1)
Вернуться к списку тем, сортированных по:
|
