Función de tubería de Perl

Descripción

Esta función abre un par de conductos de comunicación conectados: READHANDLE para leer y WRITEHANDLE para escribir. Puede que necesite configurar $ | para limpiar su WRITEHANDLE después de cada comando.

Sintaxis

A continuación se muestra la sintaxis simple para esta función:

pipe READHANDLE, WRITEHANDLE

Valor devuelto

Esta función devuelve 0 en caso de error y 1 en caso de éxito.

Ejemplo

A continuación se muestra el código de ejemplo que muestra su uso básico:

#!/usr/bin/perl -w

use IO::Handle;

pipe(PARENTREAD, PARENTWRITE);
pipe(CHILDREAD, CHILDWRITE);

PARENTWRITE->autoflush(1);
CHILDWRITE->autoflush(1);

if ($child = fork) { # Parent code
   close CHILDREAD; # We don't need these in the parent
   close PARENTWRITE;
   print CHILDWRITE "34+56;\n";
   chomp($result = <PARENTREAD>);
   print "Got a value of $result from child\n";
   close PARENTREAD;
   close CHILDWRITE;
   waitpid($child,0);
} else {
   close PARENTREAD; # We don't need these in the child
   close CHILDWRITE;
   chomp($calculation = <CHILDREAD>);
   print "Got $calculation\n";
   $result = eval "$calculation";
   print PARENTWRITE "$result\n";
   close CHILDREAD;
   close PARENTWRITE;
   exit;
}

Producirá los siguientes resultados: Puede ver que el cálculo se envía a CHILDWRITE, que luego es leído por el niño de CHILDREAD. Luego, el resultado se calcula y se envía al padre a través de PARENTWRITE, donde el padre lee el resultado de PARENTREAD.

Got 34+56;
Got a value of 90 from child

↰ Previous page