Forum Webscript.Ru

Программирование => Perl => Тема начата: kosm от 15 Июля 2003, 16:25:35

Название: Интересная задача...
Отправлено: kosm от 15 Июля 2003, 16:25:35

Ребят, есть у кого какие мысли?
Есть строка. К примеру: ЭТО ЕСТЬ АБРИКОС
Нужно получить первые букву каждого слова, т.е. в данном случае: ЭЕА
Чего-то никак регексп не могу сваять... :(

?

СПАСИБО!

Название: Интересная задача...
Отправлено: Chs от 15 Июля 2003, 17:39:47

perldoc perlop в части loop operators

Название: Интересная задача...
Отправлено: kosm от 16 Июля 2003, 15:13:45

Chs
Супер! Спасибо! Все получилось...

Еще вопрос. Можно как нить сгенирить UIN по каким-то параметрам. Т.е. нужна ф-ция, параметрами которой была бы к примеру символьная строка, а результат символьная строка, уникальная, расчитанная по входному параметру.
Коряво изъяснился, но я думаю смысл понятен?

СПАСИБО!

Название: Интересная задача...
Отправлено: n0name от 16 Июля 2003, 17:06:51

Код: [Выделить]


use Crypt::PasswdMD5;
$cryptedpassword = unix_md5_crypt($static_string, $parametr_in);

И вообще, как вариант - *_crypt(...)