$o[$i].='>'.$n[$i];
}
}
- return join('', @o);
+ my $diff = join('', @o);
+ print "# diff_bits $diff\n";
}
print "[press enter]\n";
. substr($BSR,$bit+3)
;
- print diff_bits( $BSR, $b ), $/;
+ diff_bits( $BSR, $b ), $/;
print $sock "irscan x300.tap 0x55\n"; # SAMPLE/PRELOAD
print $sock "drscan x300.tap 288 0x", bin2hex($b), "\n";