in reply to Re^3: problem with sysseek in loop
in thread problem with sysseek in loop

Figured it out finally, had to do a loop, inside of a loop, which id never done before. I was doing it in a loop, in a loop, in a loop... but i changed it
I would love to learn how to do sub routines
Anyway here is the final working code as of now. 
use File::Path (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 = '';            
};

my $dirname = "extracted";


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

# my@fn;
# my @hash;
my @md5s = read_file 'C:/md5';
chomp @hash;
chomp @md5s;
# open (my $md5file, '>>', 'C:/md5');


foreach my $file (<$dirname/*>) {
    next if -d $file;
    open( my $FILE, $file );
    binmode($FILE);
    
$file =~ s{.*/}{};
     
    my $md5 = Digest::MD5->new->addfile($FILE)->hexdigest;
    push (@hash, $md5);
     
    # syswrite $md5file, "$md5\n";
}

foreach  $md5s (@hash) {
                foreach  $md5table (@md5s) {
                        if($md5s ~~ $md5table) {
                        print "$md5s ", "$buf ", "success\n";
        }
    }
}

[download]
file to reference with

I dont like a few things about the foreach loop that gets the md5 tho because i cannot print the filename with the md5 checksum.
i will probably end up rewriting this lol.
thanks for all your help :)

Replies are listed 'Best First'.
Re^5: problem with sysseek in loop
by james28909 (Deacon) on May 09, 2014 at 08:00 UTC
    heres the md5 file to check with
    you can uncomment: 
    # open (my $md5file, '>>', 'C:/md5');


# syswrite $md5file, "$md5\n";

    [download]
    and it would create it for you, but either here is the md5 file, put it in C:\md5 or change the code and put it anywhere you like
[reply]
[d/l]
      Figured out a better way. Now it also prints out MD5, Match!, filename and filesize. If it doesnt match, it just prints "Warning" and nothing else

      Here is the final working code:

      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 $fil
+eName $!";
    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";
    }

}

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom