#!/usr/bin/perl
use strict;
use warnings;

my $file='data.dat';
my $img_file='/tests/image%05u.jpg';
my $chunksize=1024; #byte

open(my $fh, '<', $file) or die("ERROS open $file, ($!)\n");
binmode($fh);
my $chunk='';
my $data='';
my $img='';
my $img_count=0;
while(read($fh,$chunk,$chunksize))
{
  # wenn gerade kein Bild gelesen wird,
  # dann nach einem Bildanfang suchen
  if(!$img)
  {
    # den letzten gelesen chunk mit dem neuen Kombinieren,
    # damit man Überschneidungen erkennt.
    $data.=$chunk;

    # jpeg Anfang
    $img=$1 if($chunk=~/(\xFF\xD8.+)$/s);

    $data=$chunk;

    $chunk='';
  }

  # es wurde ein Bildanfang gefunden
  # ("\xFF\xD8") ist auf jeden Fall "wahr",
  # und das muss im String stehen
  if($img)
  {
    # den aktuellen chunk hinzu
    # darum habe ich $chunk oben gelehrt.
    # wenn ein Bild vollständig in einem chunk ist,
    # würde es Sonst zu Problemen kommen
    $img.=$chunk;

    # jpeg ende
    if($img=~/^(.+?\xFF\xD9)/s)
    {
      # Restdaten,
      # die noch ein Bildanfang enthalten können
      $data=$';

      # heraus geschnittene Bilddaten
      $img=$1;

      # Bildnamen erzeugen und speichern
      my $img_name=sprintf($img_file,$img_count);
      $img_count++;
      if(open(my $ifh, '>', $img_name))
      {
        binmode($ifh);
        print $ifh $img;
        close($ifh);
      }
      else
      { warn ("ERROR open $img_name ($!)\n"); }

      # Bildstring leeren, damit die Suche wieder beginnt
      $img='';
    }
  }
}
close($fh);