Hi gtaters,
I took a look inside the perl docs and here is the solution (windows 10):
the perl script.pl
#!/usr/bin/perl
$n = 100;
$pat="\x46\x46\x46\x00\x52\x54";
binmode F;
open F, '<:raw', 'IR_2017-05-19_0222.csq'
or die "Could not open file !";
$file = do { local $/; <F> };
close F;
# Flir Tools (comment out)
#$pat = "\x46\x46\x46\x00\x43\x41\x50";
for my $content (split(/(?=$pat)/, $file)) {
open(OUT, ">seq" . ++$n . ".fff");
binmode(OUT, ":raw");
print OUT $content;
close(OUT);
}
used with strawberry-perl-5.18.1.1-32bit-portable
>strawberry-perl-5.18.1.1-32bit-portable\perl\bin\perl.exe -f split.pl IR_2017-05-19_0222.csq
>exiftool -b -RawThermalImage seq*.fff -w _%f.jpgls
168 image files read
168 output files created
>ffmpeg -f image2 -vcodec jpegls -start_number 101 -i _seq%3d.jpgls output.mp4
ffmpeg version N-50911-g9efcfbe Copyright (c) 2000-2013 the FFmpeg developers
built on Mar 13 2013 21:26:48 with gcc 4.7.2 (GCC)
[libx264 @ 04223000] kb/s:130.01
please unzip the attachment for viewing the video