Re^6: dynamic extractor based off static references in file (perl)

$buffer stores the reference to where the actual data is in the file.
so it will look like this:

my $buffer = '';
sysseek $file, 0x15, 0;
sysread $file, $buffer, 0x03;
syswrite $outfile, $buffer;
[download]

And 0x15 is the reference to the actual data in this file. this code will get that reference and store it in $buffer.
What I want to be able to do is use $buffer in sysseek like this:

sysseek $file, $buffer, 0;
[download]

as opposed to:

sysseek $file, 0x400, 0;
[download]

Comment on Re^6: dynamic extractor based off static references in file (perl) Select or Download Code

Replies are listed 'Best First'.
Re^7: dynamic extractor based off static references in file (perl) by james289o9 (Acolyte) on Dec 06, 2013 at 09:29 UTC
This is what i got from data::dumper $VAR1 = ' ♦└'; So I guess it is not a numerical value. I need to get "' ♦└'" into its binary form	[reply]
Re^7: dynamic extractor based off static references in file (perl) by james289o9 (Acolyte) on Dec 06, 2013 at 09:31 UTC
This is what i got from data::dumper $VAR1 = ' ♦└'; So I guess it is not a numerical value. I need to get "' ♦└'" into its binary form. I already have the endianess worked out.	[reply]
Re^8: dynamic extractor based off static references in file (perl) by Anonymous Monk on Dec 06, 2013 at 10:44 UTC
$VAR1 = ' ♦└'; Is that the same as `" \4\xC0"` (actual dd-output of whatever perlmonks mangled of your Dumper output)? I already have the endianess worked out. Funny, what is the endianess? What do the bytes represent? (don't say a number in binary form -- there are a million of those, we need to know which one)	[reply] [d/l]
Re^9: dynamic extractor based off static references in file (perl) by james289o9 (Acolyte) on Dec 06, 2013 at 16:02 UTC
I have figured out what i needed to do convert the character string into a hex string. Now i can put that into the variable $buffer and print Dumper($buffer)returns the correct value of 04C0. The problem still is, I still cannot use $buffer (04C0) in sysseek either because its a non numerical value.	[reply]


Perl: the Markov chain saw
	PerlMonks