AnonSec Shell
Server IP : 162.214.74.102  /  Your IP : 216.73.216.139
Web Server : Apache
System : Linux dedi-4363141.lrsys.com.br 3.10.0-1160.119.1.el7.tuxcare.els25.x86_64 #1 SMP Wed Oct 1 17:37:27 UTC 2025 x86_64
User : lrsys ( 1015)
PHP Version : 5.6.40
Disable Function : exec,passthru,shell_exec,system
MySQL : ON  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : ON  |  Sudo : ON  |  Pkexec : ON
Directory :  /usr/share/doc/perl-IPC-Run-0.92/eg/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ HOME ]     

Current File : /usr/share/doc/perl-IPC-Run-0.92/eg/synopsis_scripting
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

Anon7 - 2022
AnonSec Team