Re: помогите пожалуйста с перлом

В Срд, 04/03/2009 в 14:09 +0300, Герасимов Александр Викторович пишет:

Приветствую!

> Андрей, спасибо в очередной раз выручили.
> Только строчку я изменил на :
> if (not $name =~ m/^\w+[-.]?\w+$/i){ return undef;}
> иначе при проверке с командной строки при вводе адреса +._-gan-79@company.com скрипт прекращал работу с ошибкой.
> Если я не прав, и так нельзя - поправьте пожалуйста.

Там похоже лишная одиночная кавычка затесалась, а вы её скопипастили.

Конечно, можно и так записать - "мало какая строка не есть perl - (c)" ;-)

---
С уважением,
Андрей Стаценко