Re^2: Byte ranges of binary files

The idea in my brain was that $myRange = the range of bytes required, and $readSz = the buffer size. But maybe that got lost in translation into Perl ?

Comment on Re^2: Byte ranges of binary files

Replies are listed 'Best First'.
Re^3: Byte ranges of binary files by BrowserUk (Patriarch) on Jul 27, 2013 at 15:59 UTC
You could try something like: `use constant READSIZE => ...; my $fh = ...; my $start = ...; my $end = ...; ## check $end < -s($fh)! seek $fh, $start, 0; while( ($_ = tell( $fh ) ) < $end ) { local $/ = \min( READSIZE, $end - $_ ); my $chunk = <$fh> or die $!; ## ... }` [download] With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' 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]

Replies are listed 'Best First'.

Re^3: Byte ranges of binary files
by BrowserUk (Patriarch) on Jul 27, 2013 at 15:59 UTC

You could try something like:

use constant READSIZE => ...;

my $fh = ...;
my $start = ...;
my $end   = ...; ## check $end < -s($fh)!

seek $fh, $start, 0;
while( ($_ = tell( $fh ) ) < $end ) {
    local $/ = \min( READSIZE, $end - $_ );
    my $chunk = <$fh> or die $!;
    ## ...
}
[download]

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

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]