ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Yuriy Kaminskiy                      2:5020/517.21  03 Feb 2001  19:16:11
 To : Artem Chuprina
 Subject : Re: chart.pm
 -------------------------------------------------------------------------------- 
 

 
 >>>>> On 14:25 02/2/2001, Artem Chuprina <2:5020/371.32> writes:
 
  Хрр.
  my $rx = join"",keys %{&TRANSTABLE};
 
  AC> sub translate { my $str = shift; 
  AC> $str =~ s/(.)/(exists TRANSTABLE->{$1})? TRANSTABLE->{$1}: $1/eg;
 
 s/[$rx]/${&TRANSTABLE}{$&}/go;
 
  AC>  return $str; }
 
 -- 
 Yuriy Kaminskiy.
 
 ... тяжелое детство, килобайтные игрушки ....
 --- Gnus v5.2.25/XEmacs 19.14
  * Origin: Kyle Katan's station (2:5020/517.21@fidonet)
 
 

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

Тема:    Автор:    Дата:    chart.pm   Alexey Wasilyev   02 Feb 2001 12:44:56   Re: chart.pm   Artem Chuprina   02 Feb 2001 15:25:15   Re: chart.pm   Yuriy Kaminskiy   03 Feb 2001 19:16:11