Using fork and pipe. : fork « System Functions « Perl

1. Perl
2. System Functions
3. fork

Using fork and pipe.

     
#!/usr/local/bin/perl 

pipe (INPUT, OUTPUT); 
$retval = fork(); 
if ($retval != 0) { 
    # this is the parent process 
    close (INPUT); 
    print ("Enter a line of input:\n"); 
    $line = <STDIN>; 
    print OUTPUT ($line); 
} else { 
    # this is the child process 
    close (OUTPUT); 
    $line = <INPUT>; 
    print ($line); 
    exit (0); 
} 

   
    
    
    
    
  

Related examples in the same category