MemHandle - supply memory-based FILEHANDLE methods
use MemHandle; use IO::Seekable; my $mh = new MemHandle; print $mh "foo\n"; $mh->print( "bar\n" ); printf $mh "This is a number: %d\n", 10; $mh->printf( "a string: \"%s\"\n", "all strings come to those who wait" ); my $len = $mh->tell(); # Use $mh->tell(); # tell( $mh ) will NOT work! $mh->seek(0, SEEK_SET); # Use $mh->seek($where, $whence) # seek($mh, $where, $whence) # will NOT work! my $memory = $mh->mem(); Here's the real meat: my $mh = new MemHandle; my $old = select( $mh ); . . . print "foo bar\n"; print "baz\n"; &MyPrintSub(); select( $old ); print "here it all is: ", $mh->mem(), "\n";
Generates inherits from
IO::Seekable. It provides
an interface to the file routines which uses memory instead. See
perldoc IO::Handle, and perldoc IO::Seekable as well as perlfunc
for more detailed descriptions of the provided built-in functions:
print printf readline sysread syswrite getc gets
The following functions are provided, but tie doesn't allow them to be tied to the built in functions. They should be used by calling the appropriate method on the MemHandle object.
call them like this:
my $mh = new MemHandle(); . . . my $pos = $mh->tell(); $mh->seek( 0, SEEK_SET );
MemHandle, which is a reference to a newly created symbol (see the
Symbolpackage). It then ties the FILEHANDLE to
MemHandle::Tie(see perltie/"Tying FileHandles"). Tied methods in
MemHandle::Tietranslate file operations into reads/writes into a string, which can be accessed by calling
Sets the read/write position to WHENCE + POS. WHENCE is one of the constants which are available from IO::Seekable or POSIX:
SEEK_SET # absolute position from the beginning. SEEK_CUR # offset from the current location. SEEK_END # from the end (POS can be negative).
I don't have much time to contribute to this. If you'd like to contribute, please fork https://github.com/scr/cpan and send me a pull request.
"Sheridan C. Rawlins" <email@example.com>