Fonction pipe Perl

La description

Cette fonction ouvre une paire de canaux de communication connectés: READHANDLE pour la lecture et WRITEHANDLE pour l'écriture. Vous devrez peut-être définir $ | pour vider votre WRITEHANDLE après chaque commande.

Syntaxe

Voici la syntaxe simple de cette fonction -

pipe READHANDLE, WRITEHANDLE

Valeur de retour

Cette fonction renvoie 0 en cas d'échec et 1 en cas de succès.

Exemple

Voici l'exemple de code montrant son utilisation de base -

#!/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;
}

Il produira les résultats suivants: Vous pouvez voir que le calcul est envoyé à CHILDWRITE, qui est ensuite lu par l'enfant de CHILDREAD. Le résultat est ensuite calculé et renvoyé au parent via PARENTWRITE, où le parent lit le résultat de PARENTREAD.

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