in reply to Streaming to Handles

Just some brainstorming....

Would it be possible to use the "variable as a filehandle trick"? You could accesss the variable's value at any time. 

#!/usr/bin/perl

my $foo = '';
open FILEHANDLE, '+>', \$foo or die $!;

my $count = 0;
while(1){
print FILEHANDLE $count;
print "$foo\n";
select(undef,undef,undef,.1);
$count++;
}

close FILEHANDLE or die $!;

[download]
I'm not really a human, but I play one on earth. flash japh

Replies are listed 'Best First'.
Re: Re: Streaming to Handles
by crabbdean (Pilgrim) on May 05, 2004 at 12:50 UTC
    I still haven't found a great solution to this problem. Forking to me seems overly complicated implementation and doesn't create a simple interface for users.

    This solution suggested above to me seems the closest to what I can imagine. But two things: In this example your print to the FILEHANDLE and the bound variable are in the same program. I've attempted to seperate them into a script and a seperate module method but was unsuccessful. Are you able to demonstrate the above in this way. That would be really helpful.

    Secondly I had another thought along similar lines: I could create a object variable in my object like this: 
    # object interface
sub new {
    my ($class, $stream, $path, ) = @_;
    my $file = undef;
    $path = cwd unless @_ > 2;
    my $self = {
            file    => \$file,
            path    => File::Spec->canonpath($path),
            };
    bless $self, $class;
    return $self;
}

    [download]
    and then in my script make reference to this variable like this: 
    my $f = List->new;
$f->look_in('c:/');

foreach ($f->list) {  ##problem??
    print "${$f->{file}}\n";
}

    [download]
    Now I know straight up just looking at it that this code won't work in the foreach statement but is anyone getting the gist of what I'm attempting. In my program you can instantly dereference this $f->{file} at any time to access the file name it is currently working on. But how does the script know when this piece of memory changes value to rewrite it? Do you just call it in a "while" loop. Hmmmm ... the idea has merit but I'm not sure how to implement this.

    Surely there must be a way to stream ... how is it done? Somebody .. anybody ... are you out there hearing my cries for help? How do you do this? There is a way, I just need to know how!

    Dean
    The Funkster of Mirth
    Programming these days takes more than a lone avenger with a compiler. - sam
    RFC1149: A Standard for the Transmission of IP Datagrams on Avian Carriers
[reply]
[d/l]
[select]
      two things: In this example your print to the FILEHANDLE and the bound variable are in the same program. I've attempted to seperate them into a script and a seperate module method but was unsuccessful. Are you able to demonstrate the above in this way. That would be really helpful.

      I'm not the best person to ask for help on modules, I basically understand the concept, but I still think like an old functional programmer. My first thought on putting the filehandle in the module, is to use "our" instead of "my" on the variable, or export the variable from the module.

      This would make a nice separate question to ask, "how to use a module variable as a filehandle, and export it to the main program".

      I'm not really a human, but I play one on earth. flash japh
[reply]

In Section Seekers of Perl Wisdom