#!/usr/bin/env perl 
use strict; 
use warnings; 
use 5.010; 
 
use CGI ; 
 
use CGI::Carp qw{fatalsToBrowser warningsToBrowser}; 
    #now *fatal* errors will automatically appear in the browser, 
    #which is useful for debugging 
 
use DBI; 
 
 
my $query = new CGI;  #for retrieving form data 
my $college = $query->param("college"); 
 
my $data_source = 'DBI:mysql:test'; 
my $user = 'root'; 
my $pass = ''; 
 
#dbh stands for 'db handle' 
my $dbh = DBI->connect( 
    $data_source,  
    $user,  
    $pass, 
    {RaiseError => 1, AutoCommit => 0},  #1=>true, 0=>false 
); 
 
#sth stands for 'statement handle' 
my $sth = $dbh->prepare( 
    "INSERT INTO college_counts(college, count) VALUES (?,?)" 
); 
 
$sth->execute($college, 1); 
$dbh->commit();  #Because AutoCommit is false above 
 
$dbh->disconnect(); 
 
 
#Open a pipe to another script.  Anything you 
#write to the filehandle will go to the other script's STDIN. 
 
open my $PIPE_WRITER, '| ../helper_programs/myprog.pl' 
    or die "Couldn't open pipe to myprog.pl: $!"; 
 
say $PIPE_WRITER $college; 
close $PIPE_WRITER; 
 
 
my $query = new CGI;  #for output back to browser 
 
print $query->header; 
warningsToBrowser(1); 
    #Inserts warnings as html comments in the html source. 
    #Can only be called after printing a header. 
 
print  
    $query->start_html, 
    $query->div("Your college choice, $college, was entered into our db."), 
    $query->div("$college was also sent to another script"), 
    $query->end_html 
;

#!/usr/bin/env perl 
 
use strict; 
use warnings; 
use 5.010; 
 
#On my server, the relative path from cgi-bin to here is:  
#../helper_programs/myprog.pl 
#The path will most likely be different on your server. 
 
 
#Open a file and write the received data to the file to prove 
#that this program received the data: 
 
open my $OUTFILE, '>', '../writables/data1.txt' 
    or die "Couldn't open file data1.txt: $!"; 
 
while (<STDIN>) { #this program expects line oriented input, i.e. lines that 
                     #end with "\n".  When the other program closes the pipe 
                     #this while() loop gets an eof signal 
 
    print $OUTFILE $_; 
 
    #do whatever needs to be done with the data 
} 
 
close $OUTFILE;

serve_survey_indv.pl

open (SURVEY, "$path|")  
    or die "Couldn't open pipe to $path : $!";  
  
print SURVEY "$survey_name , $x";  
close (SURVEY);

Couldn't open pipe to /serve_survey_indv.pl : No such file or directory at survey_REC.pl line 226.

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use CGI; 
use CGI::Carp qw(fatalsToBrowser warningsToBrowser); 
use 5.010; 
 
my $cgi = CGI->new; 
my $str = "testing pipe from script1 to script2"; 
 
my $script2 = 'script2.pl'; 
open my $pipe, '|-', "$script2 $str" 
  or die "Couldn't open pipe to '$script2' : $!"; 
 
# the result of this next line surprised me, 
# which is why I also passed the string in the open call 
say $pipe $str; 
 
close $pipe or die "can't close pipe $!"; 
 
print $cgi->header; 
warningsToBrowser(1); 
 
print $cgi->start_html, 
      $cgi->h1("pipe to $script2 was successful");

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use 5.010; 
 
# adjust the path as needed 
my $outfile = '/temp/pipetest.txt'; 
 
open my $tmpfile, '>>', $outfile 
  or die "Can't open '$outfile' $!"; 
 
say $tmpfile "PID:$$ \t \@ARGV: @ARGV"; 
 
while ( <STDIN> ) { 
    say $tmpfile "PID:$$ \t STDIN: $_"; 
} 
 
close $tmpfile or die "Can't close '$outfile' $!";

$SIG{PIPE} = 'IGNORE';

open my $PIPE_WRITER, '|-', '../helper_programs/myprog.pl', $college 
    or die "Couldn't open pipe to myprog.pl: $!";

my $received_data = shift @ARGV;