One Hat Cyber Team
Your IP :
216.73.216.240
Server IP :
162.240.106.28
Server :
Linux server.ganesand.com 3.10.0-1160.80.1.el7.x86_64 #1 SMP Tue Nov 8 15:48:59 UTC 2022 x86_64
Server Software :
Apache
PHP Version :
7.1.33
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
doc
/
perl-IPC-Run-0.92
/
abuse
/
Edit File:
blocking_debug_with_sub_coprocess
/usr/bin/perl -w ## Submitted by Blair Zajac <blair@orcaware.com> ## Tests blocking when piping though a &sub coprocess. ## Fixed, now in test suite. $| = 1; use strict; use Carp; use Symbol; use IPC::Run 0.44 qw(start); print "My pid is $$\n"; my $out_fd = gensym; open($out_fd, ">ZZZ.test") or die "$0: open: $!\n"; my $queue = ''; my @commands = ([['cat', '-'], \$queue, '|'], [['cat'], '|'], [\&double, '>', $out_fd]); my $harness = start 'debug' => 10, map { @$_ } @commands; $harness or die "$0: harness\n"; close($out_fd) or die "$0: cannot close: $!\n"; for (1..100) { $queue .= rand(100) . "\n"; $harness->pump; } $harness->finish or die "$0: finish\n"; exit 0; sub double { while (<STDIN>) { s/\s+$//; print "$_ $_\n"; } }
Simpan