ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Apple                                2:5020/400     17 Sep 2000  00:32:29
 To : All
 Subject : hash via subroutine
 -------------------------------------------------------------------------------- 
 

 #!/usr/bin/perl
 @frm='From: @from@ Date: @date@
 <P ALIGN="Justify">@mesg@</P>'."\n\n";
  
   $h{'from'}="One";
   $h{'date'}="1.1.1111";
   $h{'mesg'}="kkkkkk kkkkkkk kkkkkkk kkkkk \n kkkkkk kkk";
 
   &show_frm(\%h);
 
   $h{'from'}="Two";
   $h{'date'}="9.9.9999";
   $h{'mesg'}="111 11 11 11";
 
   &show_frm(\%h);
 
 sub show_frm {
    local *m = shift;
    foreach $_ (@frm) {
      s/@([a-z]*)@/$m{$1}/g ; 
      print $_;
    }
 }
 
 Hадо - раз "One" и раз - "Two".
 А дважды получаю "One".
 Подскажите пожалуйста.
 --
 bonya
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.ru (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    hash via subroutine   Apple   17 Sep 2000 00:32:29   hash via subroutine   Serge Matveev   18 Sep 2000 01:00:06   Re: hash via subroutine   Roman Yu. Panichkin   18 Sep 2000 05:43:52   hash via subroutine   Serge Matveev   18 Sep 2000 10:41:06   Re: hash via subroutine   Eugene Bodin   18 Sep 2000 07:43:59   hash via subroutine   Serge Matveev   19 Sep 2000 00:18:30