Dělení binárního souboru - skriptem nebo programem

[Roman Vasicek]

On Tue, 5 Aug 2003, Oak wrote:

> DobrĂ˝ den,
>
> mám image soubor, potřebuji ho rozdělit na X částí. Vím, že každá část má
> začínat na "Øÿá" (ASCII, hexd. to je "d8 ff e1") a končit před začátkem
> dalĹĄĂ­.

 V perlu by to melo jit asi takto

#!/usr/bin/perl
use bytes; # aby nam to fungovalo i s utf8 locale
my $delim = chr(0xd8) . chr(0xff) . chr(0xe1);
my $counter = 0;
undef $/;
my $input = <>;
$input =~ s/^.*?$delim//; # zahodime balast na zacatku
for my $filecontent (split $delim, $input) {
  open DATAOUT, '>', spritnf('extr%03d.jpg', $counter) or
    die "Nemohu otevrit $counter. soubor pro zapis...";
  print DATAOUT $delim, $filecontent;
  close DATAOUT;
  $counter++;
}

 Soubory se budou jmenovat extr$cislo$.jpg, takze prvni bude extr000.jpg.
Neni to ale moc elegantni, nebot se nacte cely image naraz, coz pri vetsim
souboru by asi byl problem.

-- 
 best regards
  Ing. Roman Vasicek

 software developer
+----------------------------------------------------------------------------+
 PetaMem s.r.o., Ocelarska 1, 190 00 Praha 9 - Liben, Czech republic
 http://www.petamem.com/