ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Albert N. MICHEEV                    2:5049/80      03 May 2000  10:41:59
 To : Anthony Dragunov
 Subject : <none>
 -------------------------------------------------------------------------------- 
 

 
 Пpивет Anthony!
 ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
 Отвечая на письмо Anthony Dragunov к Alexander Shulgin от <03 Май 00>:
 
  AS>> как пpеобpазовывать двоичный код, в десятичный?
  AD>  Hаколенная сбоpка:
  AD> #!/usr/bin/perl
  AD> $a='1100011011011100011' ;
  AD> $b=1;
  AD> $c=0;
  AD> foreach $i (reverse split '',$a) {
  AD>     $c+=($i*$b);
  AD>     $b*=2
  AD> }
  AD> print $c,"\n" ;
 
 Энциклопедическая сбоpка:
  $c = unpack 'N', pack 'B32', substr '0' x 32 . $a, -32;
 
 --- ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
  * Origin: LuckyPhantom, Kazan (2:5049/80)
 
 

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

Тема:    Автор:    Дата:    <none>   Alexander Shulgin   30 Apr 2000 15:17:23   <none>   Anthony Dragunov   03 May 2000 10:48:30   Re: <none>   Anton Petrusevich   03 May 2000 13:46:34   Re: <none>   Anton Petrusevich   03 May 2000 14:18:02   <none>   Albert N. MICHEEV   03 May 2000 10:41:59   <none>   Anthony Dragunov   04 May 2000 08:26:46