Is it possible to open a pipe-based filehandle which prints to a variable in perl?

Question

Hi, I know I can do this,

------
open(F,">",\$var);
print F "something cool";
close(F);
print $var;
------

or this,

 

open(F, "| ./prog1 | ./prog2 > tmp.file");
print F "something cool";
close(F);

but is it possible to combine these? The semantics of what I'd like to do should be clear from the following,

open(F,"|./prog1 | ./prog2", \$var);
print F "something cool";
close(F);
print $var;

however the above clearly won't work.

A few minutes of experimenting and googling seems to indicate that this is not possible, but I'd like to know if I'm stuck with using the `` to capture the output.

Answer 1

What you want to do is open the file handle as you have, read the contents to a variable, append whatever you want to that variable and then set the environment variable as is stated here to the full string that you have just generated.

You were almost there and I hope that helps. :)

Answer 2

It seems that this is not possible as perl does not support 'pipe at both ends'. More info here,

http://perldoc.perl.org/perlipc.html

Corion over at perlmonks.org answered this for me.

Answer 3

• IPC::Open2 might do the trick, see man perlipc. More likely than not, however, you will deadlock your program that way. It's safe though, as long as the data in the pipe is smaller than PIPE_BUF (on Linux 4096), only written once, and the write-side immediately closed after writing the data and before reading the result.

• You might try to rewrite your program to fork such that you end up with: YourProg | ./prog1 | ./prog2 | YourProgForked.

• On modern Linux you can use /dev/shm to host a temporary file entirely in virtual memory.

Answer 4

You can achieve your goal a couple of ways. None of them quite as easy as piling extra stuff into open.

You can use IO::Tee or other similar module, or even write your own tee style subroutine:

my $var ='';

open my $vh, '>', \$var or die "oh noes $!\n";
open my $ph, '| ./prog1 | ./prog2' or die "Uh oh $!\n";

my @handles = ($vh, $ph);

print_to_all( \@handles,
    "I like cheese.\n",
    "I like teas.\n",
);

print $var;    

sub print_to_all {
     my $handles = shift;

     for my $h ( @$handles ) {
         print $h @_;
     }

     return;
}

Another way to go would be to make a tied variable that acts as a file handle and a scalar at the same time.

Answer 5

What I actually wanted to do is not possible in perl.