ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Babanov                    2:5020/5609.69 15 Jun 2001  09:54:46
 To : Denis Roshchin
 Subject : Re: :) -> <img src="s1.gif">
 -------------------------------------------------------------------------------- 
 

 Юґullo Denis!
 
  DR> Хочу заменить ":)" и других на иконки.
  DR> Есть база (smiles),
  DR> где три поля: "stext" (что заменяем) и "saddress" (адрес картинки).
 
 А где третье поле? =8) Впрочем, неважно, сделаем так:
 
 %s = ( ":)" => "smile", ":]" => "dumb" );
 $t = "Hi! :) or, rather, hullo :]";
 while(($a, $b) = each %s) {
   $t =~ s/\Q$a/<img src="$b.gif">/g;
 }
 print $t;
 
 CYa!!!
 
 ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ   ЪДДДД 2:5020/5609.69 ДДДї
 іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER   і babanov@earthlink.net і
 ... Еще наше поколение будет жить при Виагре! [предп. из писем Ильича к HКК]
 ---
  * Origin: Our governor can beat up your governor! (2:5020/5609.69)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    :) -> <img src="s1.gif">   Denis Roshchin   15 Jun 2001 13:27:05   Re: :) -> <img src="s1.gif">   Alexander Babanov   15 Jun 2001 09:54:46   Re: :) -> <img src="s1.gif">   Denis Roshchin   15 Jun 2001 21:28:33   Re: :) -> <img src="s1.gif">   Alexander Babanov   16 Jun 2001 00:21:56   Re: :) -> <img src="s1.gif">   Denis Roshchin   16 Jun 2001 13:24:04   Re: :) -> <img src="s1.gif">   Alexander Babanov   16 Jun 2001 10:31:06   Re: :) -> <img src="s1.gif">   Ruslan Bondarev   16 Jun 2001 18:39:43   :) -> <img src="s1.gif">   Albert N. MICHEEV   18 Jun 2001 02:45:31