in reply to Re: Storing filehandles in non-scalar datastructures
in thread Storing filehandles in non-scalar datastructures

...like IO::File and the methods mentioned on Mark-Jason Dominus's Perl Paraphernalia site: http://perl.plover.com

In particular, check out the Seven useful uses of local article... really neat. (#3 should do the trick for you.)

'kaboo

  • Comment on Re: Re: Storing filehandles in non-scalar datastructures

Replies are listed 'Best First'.
Re: Re: Re: Storing filehandles in non-scalar datastructures
by Anonymous Monk on Dec 03, 2000 at 04:08 UTC
    Okay, trying that method: $$LOG{$_}[0]=do {local *FH;}; both of these lines: 
    print $$LOG{$_}[0];
print scalar <$$LOG{$_}[0]>;

    [download]
    return:
    *main::FH

    [download]
[reply]
[d/l]
[select]
      Try this: 
      #!/usr/bin/perl

use strict;

# create data structure
my $LOG = {};
$LOG->{A} = [];

# $LOG->{A}[0] is the same as $LOG->{A}->[0]
#              is the same as $$LOG{A}->[0]

# create anonymous file handle
$LOG->{A}[0] = do { local *FH };

# open file for writing, assign to anon file handle
open($LOG->{A}[0], ">dummy.txt") || 
    die "Unable to open test file.";

# unable to print directly to the pointer, so we select it instead
select($LOG->{A}[0]);

print <<EOF;
    This is a test of the anonymous file handle procedure. 
    Were this an actual, real-life procedure, instructions 
    would follow this message.
EOF

# we're done, go ahead and close the sucker
close($LOG->{A}[0]);

      [download]

      Ya with me? :)

[reply]
[d/l]

In Section Seekers of Perl Wisdom