ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/371.32  18 Sep 2000  10:34:00
 To : apple@ns1.vizor.lutsk.ua
 Subject : Re: hash via subroutine
 -------------------------------------------------------------------------------- 
 

 anvlu> From: Apple <apple@ns1.vizor.lutsk.ua>
 
 anvlu> #!/usr/bin/perl
 anvlu> @frm='From: @from@ Date: @date@
 anvlu> <P ALIGN="Justify">@mesg@</P>'."\n\n";
 anvlu>  
 anvlu>   $h{'from'}="One";
 anvlu>   $h{'date'}="1.1.1111";
 anvlu>   $h{'mesg'}="kkkkkk kkkkkkk kkkkkkk kkkkk \n kkkkkk kkk";
 
 anvlu>   &show_frm(\%h);
 
 anvlu>   $h{'from'}="Two";
 anvlu>   $h{'date'}="9.9.9999";
 anvlu>   $h{'mesg'}="111 11 11 11";
 
 anvlu>   &show_frm(\%h);
 
 anvlu> sub show_frm {
 anvlu>     local *m = shift;
 anvlu>     foreach $_ (@frm) {
 anvlu>       s/@([a-z]*)@/$m{$1}/g ; 
 anvlu>       print $_;
 anvlu>     }
 anvlu> }
 
 anvlu> Hадо - раз "One" и раз - "Two".
 anvlu> А дважды получаю "One".
 anvlu> Подскажите пожалуйста.
 
 Потому что ты в первый раз изменил @frm. И там больше не осталось частей вида
 @([a-z]*)@. Аккуратнее надо.
 
 -- 
 Счастливо!
   Ран.
 --- ifmail v.2.14.os-p7-tma3
  * Origin: MemoNet (2:5020/371.32@fidonet)
 
 

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