ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Roman Terleev                        2:5085/26.38   15 Feb 2001  12:11:36
 To : Albert N. MICHEEV
 Subject : фyнкция
 -------------------------------------------------------------------------------- 
 

 
  AM> с математикой то y тебя неплохо, а вот с логикой 8)
  RT>> #!/usr/bin/perl -w
 
 [....тут пропущено....]
 
 sub formatmb {
 
    my @a = shift;
    while( $a[0] >= 1024 ){
        unshift @a, int $a[0] / 1024;
        $a[1] -= $a[0] << 10;
      }
       return join ',', shift @a, map{sprintf'%03u',$_}@a;
 }
 
 Спасибо! То что мне и надо было. Я пару недель мучился, доку читал, никак
 сообразить не мог, а оказывается сабж маленький сам по себе. А я наворотил то,
 наворотил. :)
 И еще вопрос, у меня может попастся минусовое число. В этом случает сабж никаких
 операций производить не будет. Что еще добавить надо в сабж что бы он и
 минусовое число обработал в виде "-1,324,128" а не то кажет просто как типа
 "-1329140" ?
 
 Роман Терлеев aka Lost [-=Team Rave=-] [-=Team ACiD=-] [-=Team I Love квас=-]
  <ICQ UIN: 23990466>       [-=Team Gabber=-]       <e-mail: lost@FreeNET.uz>
 
 ... Пылесос с автоpевеpсом
 --- А сдесь могла бы быть ВАША Реклама! (с)LosT
  * Origin: MessяwithяtheяBest,яDieяlikeяtheяRest! (c)Hacker's (2:5085/26.38)
 
 

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

Тема:    Автор:    Дата:    функция   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