Re^14: Question about binary file I/O

I was hoping I could do it without needing seek(),

Why not just hide the seek inside a function of your own? Something like:

sub printAt {
    my( $fh, $src, $nChars, $offset ) = @_;
    seek $fh, $offset, 0;
    return print $fh substr $src, 0, $nChars;
}

printAt( $fh, $s, 4, 1234 );
[download]

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on Re^14: Question about binary file I/O Download Code

Replies are listed 'Best First'.
Re^15: Question about binary file I/O by TheMartianGeek (Novice) on Mar 05, 2011 at 22:11 UTC
Actually, that's a good idea. The problem with that, though, is that the print function completely erases the rest of the file. Now that I think about it, I don't know if I ever found a good way to overwrite characters in a file without erasing the rest of the file...	[reply]
Re^16: Question about binary file I/O by BrowserUk (Patriarch) on Mar 05, 2011 at 23:17 UTC
The problem with that, though, is that the print function completely erases the rest of the file. It won't if you use the right open mode; ie. '+<': `#! perl -sw use strict; ## Open for reading and writing open IO, '+<', 'junk.dat' or die $!; seek IO, 11, 0; print IO 'this overwrites'; close IO; __END__ C:\test>type junk.dat xxxxxxxxx xxxxxxxxx xxxxxxxxx xxxxxxxxx C:\test>junk59 C:\test>type junk.dat xxxxxxxxx this overwritesxxxxx xxxxxxxxx` [download] Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply] [d/l]
Re^17: Question about binary file I/O by TheMartianGeek (Novice) on Mar 05, 2011 at 23:55 UTC
Oh, I see. That's useful. Okay, my next question is kind of hard to describe...basically, I want to find all blocks of data in a file that are composed of a single specified character and have a specified minimum length. (Say, all blocks of character 0x20 that are at least 12 bytes long.) BUT, said blocks a) shouldn't cross certain boundaries (say, they shouldn't overlap between groups of 1000 bytes) and b) shouldn't be taken into account if they are part of a reserved block marked with a certain keyword (say, the ASCII characters "U S E D" followed by the block length). I don't really even know where to start on this...	[reply]
Re^18: Question about binary file I/O by BrowserUk (Patriarch) on Mar 06, 2011 at 08:21 UTC


more useful options
	PerlMonks