use File::Path qw(make_path rmtree);
use Digest::MD5;
use File::Slurp;

rmtree 'extracted';
open( my $infile, '<', $ARGV[0] ) or die "cannot open file: $!";
binmode($infile);
make_path('./extracted');    #or die "Failed to create Direcotry: $!";

my $curpos       = '';
my $fileLocation = '';
my $fileSize     = '';
my $fileName     = '';
my $file         = '';
my $chunk        = '';
my $exit         = '';

#GET File Location, File Size, File Name and write to file
seek( $infile, 0x10, 0 );
until ($exit) {
    read( $infile, $fileLocation, 0x08 );
    read( $infile, $fileSize,     0x08 );
    read( $infile, $fileName,     0x20 );

    if ( $fileLocation =~ 'SCE' ) {
        last;
    }

    $fileLocation =~ s/(.)/sprintf("%02x",ord($1))/eg;
    $fileSize =~ s/(.)/sprintf("%02x",ord($1))/eg;
    $fileName =~ s/\0+$//;

    if ( $fileLocation =~ 'ffffffffffffffff' ) {
        last;
    }

    open( $file, '>', "extracted/$fileName" ) or die "Cannot open $fileName $!";
    binmode($file);
    sysseek( $infile, hex($fileLocation), 0 );
    sysread( $infile, $chunk, hex($fileSize) );
    syswrite( $file, $chunk );

    $fileLocation = '';
    $fileSize     = '';
}

#Get md5 of each file extracted and compare against array

my $dirname  = "extracted";
my @md5s     = read_file "C:/md5";
my $scal     = join( '', @md5s );
my $filesize = '';

open( my $buf, '<', "extracted/sdk_version" )
  or die "cannot open sdk_version: $!";
seek( $buf, 0x00, 0 );
read( $buf, my $sdk, 0x03 );

foreach my $file (<$dirname/*>) {
    next if -d $file;
    open( my $FILE, $file );
    binmode($FILE);

    $filesize = -s $FILE;
    $file =~ s{.*/}{};
    $md5 = Digest::MD5->new->addfile($FILE)->hexdigest;

    if ( $scal =~ $md5 ) {
        print "$md5 Match! $sdk $file $filesize\n";
    }
    else {
        print "WARNING !\n";
    }

}