in reply to Re: Re: Streaming to Handles
in thread Streaming to Handles

The only way I can think of doing this without heavily restructuring your code is to create a pipe, fork off a child, then have the child write the list of filenames to the pipe and have the parent read them back in.

Replies are listed 'Best First'.
Re: Re: Re: Re: Streaming to Handles
by sgifford (Prior) on May 01, 2004 at 16:21 UTC
    ...Which isn't as hard as it sounds. Something like: 
    
my $f = List->new;
my $pid = open(FROM_LIST,"-");
if (!defined($pid)) { die "fork error: $!\n"; }
elsif (!$pid)
{
  # Child
  $f->stream_to(\*STDOUT);
  $f->look_in('c:/');
  $f->list;
  exit(0);
}

# Parent
while (<FROM_LIST>)
{
  print "$_\n";
}

    [download]
    should do the trick.
[reply]
[d/l]

In Section Seekers of Perl Wisdom