in reply to Is it possible to write to STDIN ?
Also here is a script you may find interesting.#!/usr/bin/perl -wT use strict; my $buffer; read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); print "Content-type: text/plain\n\n"; print $buffer;
#!/usr/bin/perl # Description: Takes all CGI parameters (both GET and POST data) # and builds a query string to send as a GET request. use CGI::Simple; # or use CGI; use URI::Escape; my $CGI = CGI::Simple->new; # or CGI->new; my $query = join( ';', map { uri_escape($_) . '=' . uri_escape($CGI->param($_)) } $CGI->param ); # now we can send a GET rquest somewhere $CGI->redirect('http://my.server.com/script.pl?' . $query);
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Is it possible to write to STDIN ?
by exilepanda (Friar) on Jul 21, 2014 at 14:58 UTC |