Схемы и документация на отечественные компьютеры и комплектующие

[AlecV]

Ошибки в следующих строках -- там неправильно распозналось, в первой позиции цифра "5".

433
780
984

#!/usr/bin/perl -w
while (<>) {
   chomp ;
   next if /\f/;
   ($d0,$d1,$d2,$d3,$d4,$d5,$d6,$d7)=split;

   octp($d0);
   octp($d1);
   octp($d2);
   octp($d3);
   octp($d4);
   octp($d5);
   octp($d6);
   octp($d7);
}

sub octp {
   $i=eval("0".$_[0]);
   $hi= $i >> 8;
   $lo= $i % 256;
   print chr($lo),chr($hi);

}