- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #941 [562]
От : Artem Chuprina 2:5020/400 27 октября 03, 19:48
Кому : Michael Spector 01 ноября 03, 04:39
Тема : Re: Выделение транскрипции
-------------------------------------------------------------------------------
From: Artem Chuprina
Хмутро.
AB>> Уважаемые программисты... Я еще слишком дерьмого знаю
AB>> PERL, но мне позарез надо вырезать транскрипцию из строки
AB>> словаря... У меня например есть строка:
AB>> Pupkinism [pupki'nizm] 1.пупкинизм (она присвоена $strict)
AB>> И из этого мне надо присвоить некой переменной, предположем
AB>> $transcr транскрипцию заключенную в [], но при этом скобки необходимо
AB>> убрать... Взаранее СПАСИБО! В идеале чтобы
AB>> $word = слову
AB>> $transcr = транскрипции
AB>> $znach = перевод (это все, что стоит после ] )
MS> if ( $strict =~ /(\w+)\s+\[(.*)\]\s+\d+\.(\S+)/ )
([^]]*) или (.*?)
MS> {
MS> ($word, $transcr, $znach) = ($1, $2, $3);
MS> }
--
Artem Chuprina
RFC2822: , FIDO: 2:5020/122.256, ICQ: 13038757
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)