|
Sujet : dmg2iso > script perl foireux : besoin d'aide |
| M300A |
J'essaye de convertir une image cd au format mac (:fou:) en iso.
Il y'a un script perl cité un peu partout sur le net mais chez moi il plante :
gandalf@Hellscream:/mp3$ dmg2iso.pl tiger-xiso.dmg tiger-xiso.iso
dmg2iso v0.2a by vu1tur (vu1tur@gmx.de)
reading property list...found 1 partitions
decompressing:
partition 0
Negative length at /usr/local/bin/dmg2iso.pl line 76.
|
La partie du script incriminée :
print "partition ".$t++."\n";
s/^.{204}//s;
while (s/^(.{8})(.{8})(.{8})(.{8})(.{8})//s)
{
$x = inflateInit();
my $block_type = unpack("H*",$1);
my $out_offs = 0x200*hex(unpack("H*",$2));
my $out_size = 0x200*hex(unpack("H*",$3));
my $in_offs = hex(unpack("H*",$4));
my $in_size = hex(unpack("H*",$5));
# $1 - block type, $2 - output offs $3 - output size $4 input offset $5 - input size
sysseek(FINPUT,$in_offs+$zoffs,0);
sysread(FINPUT,$tmp,$in_size);
|
La ligne 76 c'est la "sysread(FINPUT,$tmp,$in_size);".
Merci d'avance :jap: |
