Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.
Vanilla 1.1.4 jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.
perl -e '$f=shift;open F,$f;binmode F;$_=do{local $/;<F>};for($i=0;$i+3<length;){$i+=2if substr($_,$i,2)eq"\xff\xff";last if$i+3>=length;($a,$b)=unpack"vv",substr($_,$i,4);$n=$b-$a+1;push@s,[$a,$b,$n];$i+=4+$n}print"$f\n";printf" \$%04X-\$%04X %d\n",@$_ for@s;print" total segments ".@s."\n"' filename
perl -e '$f=shift;open F,$f;binmode F;$_=do{local $/;<F>};for($i=0;$i+3<length;){$i+=2if substr($_,$i,2)eq"\xff\xff";last if$i+3>=length;($a,$b)=unpack"vv",substr($_,$i,4);$n=$b-$a+1;push@s,[$a,$b,$n];$i+=4+$n}print"$f\n";printf" \$%04X-\$%04X %d\n",@$_ for@s;print" total segments ".@s."\n"' scorch.xex
scorch.xex
$2000-$2005 6
$02E2-$02E3 2
$2010-$3F4F 8000
$4000-$4260 609
$4C00-$7978 11641
$8000-$8DA4 3493
$96A5-$9730 140
$02E2-$02E3 2
$4000-$43FF 1024
$4400-$45E7 488
$45E8-$4654 109
$4655-$46CC 120
$46CD-$A9DB 25359
$AA00-$AABF 192
$AB00-$AFFC 1277
$B000-$BFE3 4068
$02E0-$02E1 2
total segments 17
alias xex='perl -e '\''$f=shift;open F,$f;binmode F;$_=do{local $/;<F>};for($i=0;$i+3<length;){$i+=2if substr($_,$i,2)eq"\xff\xff";last if$i+3>=length;($a,$b)=unpack"vv",substr($_,$i,4);$n=$b-$a+1;push@s,[$a,$b,$n];$i+=4+$n}print"$f\n";printf" \$%04X-\$%04X %d\n",@$_ for@s;print" total segments ".@s."\n"'\'''
xex scorch.xex
