Re^4: Virtual Filehandles..

Hmm, I don't think its possible with 5.6.0

the module you referenced uses a temp file:

my $tmpfile = $class->{tmpfile} = '.tmp.' . $$;
$FILEHANDLE = new FileHandle "$tmpfile", O_RDWR|O_CREAT or croak "$tmp
+file: $!";
$class->{FILENO} = $FILEHANDLE->fileno();
$class;
[download]

PG's suggestion is also 5.8.0 specific.

Comment on Re^4: Virtual Filehandles.. Download Code

Replies are listed 'Best First'.
Re^5: Virtual Filehandles.. by diotalevi (Canon) on Nov 18, 2004 at 21:37 UTC
I didn't know it used a temp file. If I were to build the module to do this I'd use Tie::Handle and overload the writing functions. I didn't test this or even try to compile it. `my $data = tie $fh, 'Tie::Handle::Scalar::WithoutTemp'; print $fh "Hello world"; print $$data; package Tie::Handle::Scalar::WithoutTemp; use base 'Tie::Handle'; sub TIEHANDLE { my $classname = shift; my $data; bless \ $data, $classname; } sub WRITE { my ( $self, $scalar, $length, $offset ) = @_; $$data .= substr $scalar, $offset, $length; 1; } sub PRINT { $$data .= join $,, @_[ 1 .. $#_ ]; 1; } sub PRINTF { $$data .= sprintf $_[1], @_[ 2 .. $#_ ]; 1; }` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^5: Virtual Filehandles..
by diotalevi (Canon) on Nov 18, 2004 at 21:37 UTC

I didn't know it used a temp file. If I were to build the module to do this I'd use Tie::Handle and overload the writing functions.

I didn't test this or even try to compile it.

my $data = tie $fh, 'Tie::Handle::Scalar::WithoutTemp';

print $fh "Hello world";
print $$data;

package Tie::Handle::Scalar::WithoutTemp;
use base 'Tie::Handle';

sub TIEHANDLE {
    my $classname = shift;
    my $data;
    bless \ $data, $classname;
}

sub WRITE {
    my ( $self, $scalar, $length, $offset ) = @_;
    $$data .= substr $scalar, $offset, $length;
    1;
}

sub PRINT {
    $$data .= join $,, @_[ 1 .. $#_ ];
    1;
}

sub PRINTF {
    $$data .= sprintf $_[1], @_[ 2 .. $#_ ];
    1;
}
[download]

[reply]
[d/l]