ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Anton Petrusevich                    2:5004/16.29   03 May 2000  13:46:34
 To : Anthony Dragunov
 Subject : Re: <none>
 -------------------------------------------------------------------------------- 
 

 >>>>> "AD" == Anthony Dragunov writes:
 
 AS> как пpеобpазовывать двоичный код, в десятичный?
 AD>   аколенная сборка:
 AD> #!/usr/bin/perl
 AD> $a='1100011011011100011' ; $b=1; $c=0; foreach $i (reverse split '',$a)
 AD> {
 AD>     $c+=($i*$b); $b*=2
 AD> } print $c,"\n" ;
 
 Hm... 
 casus:casus$ perl -le 'print unpack("L",pack("b32","1100011011011100011"))'
 408419
 -- 
   Best regards, Anton.
 
 --- Gnus v5.5/XEmacs 20.4 - "Emerald"
  * Origin: Omskelecom (2:5004/16.29@fidonet)
 
 

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

Тема:    Автор:    Дата:    <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