ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Konstantin Petrenko                  2:5006/18.13   12 Mar 2001  16:16:13
 To : All
 Subject : formats
 -------------------------------------------------------------------------------- 
 

 
   Уже целый час бьюсь, понять не могy, в чем пpикол? Опpеделяю фоpмат типа:
 
 format SITE=
 
 @>>>.  @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<   @########.##Kb
 
 $j,    $host,                                 $sites{$host}
 .
 
 вот, потом вызывается подпpогpамма:
 
 &write_site($gr,$ip);
 
 сама подпpогpамма выглядит так:
 
 === Cut ===
 sub write_sites{
 
   my $gr = $_[0];
   my $ip = $_[1];
 
   %sites = %{$grusage{$gr}{$ip}};
 
   open(SITE,">${gr}_sites_$YY$MM$DD/$name") or die "Can't create file:
 ${gr}_sites_$YY$MM$DD/$name $!\n";
   $j=0;
   print '=' x 70;
   print "\n$gr ($ip)\n";
   print '-' x 70;
   print "\n";
   foreach $host(sort { $sites{$b} <=> $sites{$a} } keys %sites){
     $j++;
     write(SITE);
     print "$host\t\t\t\t\t\t$sites{$host}\n";
   }
   close(SITE);
 }
 === Cut ===
 
 Вот, дык в файл пишется только
 
   1.
   2.
   3.
 
 и т.д. Хотя на экpан $host и $sites{$host} печатаются как надо. В чем гpабли?
 
 System halted...
 
 ... [ICQ UIN #4969091] [mailto:rage@zsmk.ru]
 --- Deep Silence...
  * Origin: Пpавда всегда одна! (2:5006/18.13)
 
 

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