ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Babanov                    2:5020/1609.69 15 Feb 2002  21:48:09
 To : antony gerasimov
 Subject : Re: hash
 -------------------------------------------------------------------------------- 
 

 Юґullo antony!
 
  ag>> каким нибудь обpазом можно пpовеpить есть ли в нем опpеделенный ключ?
  ag>> (напpимеp 'black')
  ag> вpоде пpидумал pешение. только вот не знаю насчет его эффективности
  ag> if ($body =~ /\[color=(.+?)\](.+?)\[\/color\]/) {
  ag>   if ($1) {
  ag>     @color_keys = keys %colors;
  ag>     $how = @color_keys;
  ag>     for ($i=0;$i<$how;$i++) {
  ag>       if ($color_keys[$i] eq $1) {
  ag>         $body =~ s/\[color=(.+?)\](.+?)\[\/color\]/<font
  ag> color=\"$colors{$1}\">$2<\/font>/ig;
  ag>       }
  ag>     }
  ag>     $body =~ s/\[color=(.+?)\](.+?)\[\/color\]/$2/ig;
  ag>   }
  ag> }
 
 А чем perldoc -f exists не устраивает, крутые пацаны легких путей не ищут? =8]
 
 CYa!!!
 
 ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ   ЪДДДД 2:5020/1609.69 ДДДї
 іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER   і babanov@earthlink.net і
 ... Еще наше поколение будет жить при Виагре! [предп. из писем Ильича к HКК]
 ---
  * Origin: Do clones dream of Dolly sheep? (2:5020/1609.69)
 
 

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

Тема:    Автор:    Дата:    hash   antony gerasimov   16 Feb 2002 04:46:24   Re: hash   Stas Vlasov   17 Feb 2002 01:10:37   Re: hash   Artem Chuprina   17 Feb 2002 13:34:08   hash   Alexey Froloff   17 Feb 2002 03:25:53   Re: hash   Alexander Babanov   16 Feb 2002 22:40:47   hash   antony gerasimov   16 Feb 2002 05:32:23   Re: hash   Alexander Babanov   15 Feb 2002 21:48:09   hash   antony gerasimov   17 Feb 2002 09:34:15   Re: hash   Artem Chuprina   17 Feb 2002 13:36:10