NAME<\/a> IO::InnerFile \u2212 define a file inside another file<\/p>\n use strict; If you have a file handle that can “seek” and “tell”, then you can open an IO::InnerFile on a range of the underlying file.<\/p>\n IO::InnerFile implements the following constructors.<\/p>\n new<\/b> Create a new IO::InnerFile opened on the given file handle. The file handle supplied MUST<\/small><\/b> be able to both “seek” and “tell”.<\/p>\n The second and third parameters are start and length. Both are defaulted to zero (0). Negative values are silently coerced to zero.<\/p>\n IO::InnerFile implements the following methods.<\/p>\n add_length<\/b> Add to the virtual length of the inner file by the number given in bytes.<\/p>\n add_start<\/b> Add to the virtual position of the inner file by the number given in bytes.<\/p>\n binmode<\/b> This is a NOOP<\/small> method just to satisfy the normal IO::File interface.<\/p>\n close This is a NOOP<\/small> method just to satisfy the normal IO::File interface.<\/p>\n flush<\/b> This is a NOOP<\/small> method just to satisfy the normal IO::File interface.<\/p>\n get_end<\/b> Get the virtual end position of the inner file in bytes.<\/p>\n get_length<\/b> Get the virtual length of the inner file in bytes.<\/p>\n get_start<\/b> Get the virtual position of the inner file in bytes.<\/p>\n getc Set the virtual end of the inner file in bytes (this basically just alters the length).<\/p>\n set_length<\/b> Set the virtual length of the inner file in bytes.<\/p>\n set_start<\/b> Set the virtual start position of the inner file in bytes.<\/p>\n tell Eryq (eryq@zeegee.com<\/i>). President, ZeeGee Software Inc (http:\/\/www.zeegee.com<\/i>).<\/p>\n
SYNOPSIS<\/a>
DESCRIPTION<\/a>
CONSTRUCTORS<\/a>
METHODS<\/a>
AUTHOR<\/a>
CONTRIBUTORS<\/a>
COPYRIGHT & LICENSE<\/a> <\/p>\n
\nNAME <\/a> <\/h2>\n
SYNOPSIS <\/a> <\/h2>\n
use warnings;
use IO::InnerFile;
# Read a subset of a file:
my $fh = _some_file_handle;
my $start = 10;
my $length = 50;
my $inner = IO::InnerFile\u2212>new($fh, $start, $length);
while (my $line = <$inner>) {
# …
}<\/p>\nDESCRIPTION <\/a> <\/h2>\n
CONSTRUCTORS <\/a> <\/h2>\n
my $inner = IO::InnerFile\u2212>new($fh);
$inner = IO::InnerFile\u2212>new($fh, 10);
$inner = IO::InnerFile\u2212>new($fh, 10, 50);<\/p>\nMETHODS <\/a> <\/h2>\n
$inner\u2212>add_length(30);<\/p>\n
$inner\u2212>add_start(30);<\/p>\n
$inner\u2212>binmode();<\/p>\n
fileno<\/b>
$inner\u2212>fileno();<\/p>\n
$inner\u2212>flush();<\/p>\n
my $num_bytes = $inner\u2212>get_end();<\/p>\n
my $num_bytes = $inner\u2212>get_length();<\/p>\n
my $num_bytes = $inner\u2212>get_start();<\/p>\n
getline
print LIST<\/small>
printf
read
readline
seek
set_end<\/b>
$inner\u2212>set_end(30);<\/p>\n
$inner\u2212>set_length(30);<\/p>\n
$inner\u2212>set_start(30);<\/p>\n
write<\/b><\/p>\nAUTHOR <\/a> <\/h2>\n
CONTRIBUTORS <\/a> <\/h2>\n