Linux server2.hpierson.com 3.10.0-1160.105.1.el7.x86_64 #1 SMP Thu Dec 7 15:39:45 UTC 2023 x86_64
Apache
: 162.0.216.123 | : 216.73.216.152
28 Domain
?7.4.33
yvffpqmy
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 /
perl5 /
vendor_perl /
[ HOME SHELL ]
Name
Size
Permission
Action
?;
App
[ DIR ]
drwxr-xr-x
?;
Archive
[ DIR ]
drwxr-xr-x
?;
B
[ DIR ]
drwxr-xr-x
?;
Bundle
[ DIR ]
drwxr-xr-x
?;
Business
[ DIR ]
drwxr-xr-x
?;
CGI
[ DIR ]
drwxr-xr-x
?;
CPAN
[ DIR ]
drwxr-xr-x
?;
CPANPLUS
[ DIR ]
drwxr-xr-x
?;
Carp
[ DIR ]
drwxr-xr-x
?;
DBIx
[ DIR ]
drwxr-xr-x
?;
Date
[ DIR ]
drwxr-xr-x
?;
Devel
[ DIR ]
drwxr-xr-x
?;
Digest
[ DIR ]
drwxr-xr-x
?;
Encode
[ DIR ]
drwxr-xr-x
?;
Error
[ DIR ]
drwxr-xr-x
?;
Exporter
[ DIR ]
drwxr-xr-x
?;
ExtUtils
[ DIR ]
drwxr-xr-x
?;
File
[ DIR ]
drwxr-xr-x
?;
Getopt
[ DIR ]
drwxr-xr-x
?;
Git
[ DIR ]
drwxr-xr-x
?;
HTML
[ DIR ]
drwxr-xr-x
?;
HTTP
[ DIR ]
drwxr-xr-x
?;
IO
[ DIR ]
drwxr-xr-x
?;
IPC
[ DIR ]
drwxr-xr-x
?;
JSON
[ DIR ]
drwxr-xr-x
?;
LWP
[ DIR ]
drwxr-xr-x
?;
Locale
[ DIR ]
drwxr-xr-x
?;
Log
[ DIR ]
drwxr-xr-x
?;
Module
[ DIR ]
drwxr-xr-x
?;
Mozilla
[ DIR ]
drwxr-xr-x
?;
Net
[ DIR ]
drwxr-xr-x
?;
POD2
[ DIR ]
drwxr-xr-x
?;
Params
[ DIR ]
drwxr-xr-x
?;
Parse
[ DIR ]
drwxr-xr-x
?;
Perl
[ DIR ]
drwxr-xr-x
?;
Pod
[ DIR ]
drwxr-xr-x
?;
RPC
[ DIR ]
drwxr-xr-x
?;
TAP
[ DIR ]
drwxr-xr-x
?;
Term
[ DIR ]
drwxr-xr-x
?;
Test
[ DIR ]
drwxr-xr-x
?;
Text
[ DIR ]
drwxr-xr-x
?;
Thread
[ DIR ]
drwxr-xr-x
?;
Time
[ DIR ]
drwxr-xr-x
?;
Try
[ DIR ]
drwxr-xr-x
?;
Types
[ DIR ]
drwxr-xr-x
?;
Version
[ DIR ]
drwxr-xr-x
?;
WWW
[ DIR ]
drwxr-xr-x
?;
autodie
[ DIR ]
drwxr-xr-x
?;
common
[ DIR ]
drwxr-xr-x
?;
inc
[ DIR ]
drwxr-xr-x
?;
lib
[ DIR ]
drwxr-xr-x
?;
local
[ DIR ]
drwxr-xr-x
CGI.pm
255.24
KB
-rw-r--r--
CPANPLUS.pm
7.05
KB
-rw-r--r--
Carp.pm
19.93
KB
-rw-r--r--
Digest.pm
10.35
KB
-rw-r--r--
Env.pm
5.39
KB
-rw-r--r--
Error.pm
24.27
KB
-rw-r--r--
Expect.pm
53.44
KB
-rw-r--r--
Expect.pod
42.71
KB
-rw-r--r--
Exporter.pm
18.31
KB
-rw-r--r--
Fatal.pm
45.16
KB
-rw-r--r--
Git.pm
42.55
KB
-r--r--r--
autodie.pm
11.83
KB
-rw-r--r--
constant.pm
13.04
KB
-rw-r--r--
newgetopt.pl
2.15
KB
-rw-r--r--
parent.pm
2.83
KB
-rw-r--r--
perldoc.pod
8.25
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : newgetopt.pl
# Id: newgetopt.pl,v 1.18 2001/09/21 13:34:59 jv # This library is no longer being maintained, and is included for backward # compatibility with Perl 4 programs which may require it. # It is now just a wrapper around the Getopt::Long module. # # In particular, this should not be used as an example of modern Perl # programming techniques. # # Suggested alternative: Getopt::Long { package newgetopt; # Values for $order. See GNU getopt.c for details. $REQUIRE_ORDER = 0; $PERMUTE = 1; $RETURN_IN_ORDER = 2; # Handle POSIX compliancy. if ( defined $ENV{"POSIXLY_CORRECT"} ) { $autoabbrev = 0; # no automatic abbrev of options (???) $getopt_compat = 0; # disallow '+' to start options $option_start = "(--|-)"; $order = $REQUIRE_ORDER; $bundling = 0; $passthrough = 0; } else { $autoabbrev = 1; # automatic abbrev of options $getopt_compat = 1; # allow '+' to start options $option_start = "(--|-|\\+)"; $order = $PERMUTE; $bundling = 0; $passthrough = 0; } # Other configurable settings. $debug = 0; # for debugging $ignorecase = 1; # ignore case when matching options $argv_end = "--"; # don't change this! } use Getopt::Long; ################ Subroutines ################ sub NGetOpt { $Getopt::Long::debug = $newgetopt::debug if defined $newgetopt::debug; $Getopt::Long::autoabbrev = $newgetopt::autoabbrev if defined $newgetopt::autoabbrev; $Getopt::Long::getopt_compat = $newgetopt::getopt_compat if defined $newgetopt::getopt_compat; $Getopt::Long::option_start = $newgetopt::option_start if defined $newgetopt::option_start; $Getopt::Long::order = $newgetopt::order if defined $newgetopt::order; $Getopt::Long::bundling = $newgetopt::bundling if defined $newgetopt::bundling; $Getopt::Long::ignorecase = $newgetopt::ignorecase if defined $newgetopt::ignorecase; $Getopt::Long::ignorecase = $newgetopt::ignorecase if defined $newgetopt::ignorecase; $Getopt::Long::passthrough = $newgetopt::passthrough if defined $newgetopt::passthrough; &GetOptions; } ################ Package return ################ 1; ################ End of newgetopt.pl ################
Close
