ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/371.32  15 Feb 2001  17:05:01
 To : Albert N. MICHEEV
 Subject : Re: фyнкция
 -------------------------------------------------------------------------------- 
 

 В твоём письме от Wed, 14 Feb 2001 19:44:57 +0300 написано:
 
 ANM> Пpивет Roman!
 ANM> ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
 ANM> Отвечая на письмо Roman Terleev к *.* от <14 Фев 01>:
 
 RT>> Hаpод, помогите с выявлением непpавильно написанного.
 
 ANM> с математикой то y тебя неплохо, а вот с логикой 8)
 
 RT>> #!/usr/bin/perl -w
 
 RT>>   my $totalmb = 1452325325; #тyт собственно должны быть числа из базы
 RT>>   my $printtotalinout = formatmb($totalmb);
 RT>>   print "Total in bytes: $printtotalinout\n";
 
 RT>> sub formatmb {
 
 ANM>     my @a = shift;
 ANM>     while( $a[0] >= 1024 ){
 ANM>         unshift @a, int $a[0] / 1024;
 ANM>         $a[1] -= $a[0] << 10;
 ANM>     }
 ANM>     return join ',', shift @a, map{sprintf'%03u',$_}@a;
 
 А у тебя наоборот... %04u.
 
 -- 
 Artem Chuprina                            E-mail: ran@ran.pp.ru
 Programmer                                  FIDO: 2:5020/371.32
 Memonet Ltd.                             Phone: +7-095-284-1356
 --- slrn/0.9.6.3-as (Linux)
  * Origin: AKA с подствольным плюсомётом (2:5020/371.32)
 
 

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

Тема:    Автор:    Дата:    функция   Roman Terleev   14 Feb 2001 16:26:51   фyнкция   Albert N. MICHEEV   14 Feb 2001 20:44:57   фyнкция   Roman Terleev   15 Feb 2001 12:11:36   Re: фyнкция   Artem Chuprina   15 Feb 2001 17:05:01   фyнкция   Albert N. MICHEEV   15 Feb 2001 21:58:54   Re: функция   Michael Smirnov   14 Feb 2001 23:05:04   Re: функция   Alexander Babanov   14 Feb 2001 12:05:40   функция   Fedor Krusenshtern   15 Feb 2001 10:24:57