Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
PipingSTDIN
- Thread starter gnikol1
- Start date
do you mean from inside another perl script? if you do the answer is:
system('parser | script.pl'); Mike
"Experience is the comb that Nature gives us after we are bald."
Is that a haiku?
I never could get the hang
of writing those things.
system('parser | script.pl'); Mike
"Experience is the comb that Nature gives us after we are bald."
Is that a haiku?
I never could get the hang
of writing those things.
- Thread starter
- #4
ok
open(P, 'parser |') || die "Can't run parser\n$!\n";
while(<P>){
print $_; # each line of output from parser will be in $_
} Mike
"Experience is the comb that Nature gives us after we are bald."
Is that a haiku?
I never could get the hang
of writing those things.
open(P, 'parser |') || die "Can't run parser\n$!\n";
while(<P>){
print $_; # each line of output from parser will be in $_
} Mike
"Experience is the comb that Nature gives us after we are bald."
Is that a haiku?
I never could get the hang
of writing those things.
- Thread starter
- #6
"It is not the same as ......"
Unless you do something tricky to attach STDIN to a specific process, it is not the same.
Mike, is correct. You need to open a pipe to the parser process and 'listen' to that PIPE. STDOUT from that process will come in the pipe.
'hope this helps
If you are new to Tek-Tips, please use descriptive titles, check the FAQs, and beware the evil typo.
Unless you do something tricky to attach STDIN to a specific process, it is not the same.
Mike, is correct. You need to open a pipe to the parser process and 'listen' to that PIPE. STDOUT from that process will come in the pipe.
'hope this helps
If you are new to Tek-Tips, please use descriptive titles, check the FAQs, and beware the evil typo.
yes, it's like that Yauncin, but you get some more control as well, like this example from the documentation.
open(SPOOLER, "| cat -v | lpr -h 2>/dev/null"
|| die "can't fork: $!";
local $SIG{PIPE} = sub { die "spooler pipe broke" };
print SPOOLER "stuff\n";
close SPOOLER || die "bad spool: $! $?";
Mike
"Experience is the comb that Nature gives us after we are bald."
Is that a haiku?
I never could get the hang
of writing those things.
open(SPOOLER, "| cat -v | lpr -h 2>/dev/null"
|| die "can't fork: $!";
local $SIG{PIPE} = sub { die "spooler pipe broke" };
print SPOOLER "stuff\n";
close SPOOLER || die "bad spool: $! $?";
Mike
"Experience is the comb that Nature gives us after we are bald."
Is that a haiku?
I never could get the hang
of writing those things.
- Status