003 File Manager
Current Path:
/usr/local/lib/perl5/5.32
usr
/
local
/
lib
/
perl5
/
5.32
/
📁
..
📄
AnyDBM_File.pm
(2.56 KB)
📁
App
📁
Archive
📁
Attribute
📄
AutoLoader.pm
(15.43 KB)
📄
AutoSplit.pm
(19.18 KB)
📁
B
📄
Benchmark.pm
(30.3 KB)
📄
CORE.pod
(3.11 KB)
📁
CPAN
📄
CPAN.pm
(142.8 KB)
📁
Carp
📄
Carp.pm
(35.12 KB)
📁
Class
📁
Compress
📁
Config
📄
DB.pm
(18.48 KB)
📁
DBM_Filter
📄
DBM_Filter.pm
(14.05 KB)
📁
Devel
📁
Digest
📄
Digest.pm
(10.45 KB)
📄
DirHandle.pm
(2.04 KB)
📄
Dumpvalue.pm
(17.25 KB)
📁
Encode
📄
English.pm
(4.65 KB)
📄
Env.pm
(5.39 KB)
📁
Exporter
📄
Exporter.pm
(18.36 KB)
📁
ExtUtils
📄
Fatal.pm
(57.64 KB)
📁
File
📄
FileCache.pm
(5.42 KB)
📄
FileHandle.pm
(6.63 KB)
📁
Filter
📄
FindBin.pm
(4.45 KB)
📁
Getopt
📁
HTTP
📁
I18N
📁
IO
📁
IPC
📄
Internals.pod
(2.51 KB)
📁
JSON
📁
Locale
📁
Math
📁
Memoize
📄
Memoize.pm
(35.34 KB)
📁
Module
📄
NEXT.pm
(18.54 KB)
📁
Net
📁
Params
📁
Parse
📁
Perl
📁
PerlIO
📄
PerlIO.pm
(14.1 KB)
📁
Pod
📄
Safe.pm
(24.77 KB)
📁
Search
📄
SelectSaver.pm
(1.05 KB)
📄
SelfLoader.pm
(17.27 KB)
📄
Symbol.pm
(4.69 KB)
📁
TAP
📁
Term
📁
Test
📄
Test.pm
(29.34 KB)
📁
Test2
📄
Test2.pm
(6.24 KB)
📁
Text
📁
Thread
📄
Thread.pm
(8.09 KB)
📁
Tie
📁
Time
📄
UNIVERSAL.pm
(6.44 KB)
📁
Unicode
📁
User
📄
XSLoader.pm
(10.99 KB)
📄
_charnames.pm
(33.35 KB)
📁
autodie
📄
autodie.pm
(12.23 KB)
📄
autouse.pm
(4.14 KB)
📄
base.pm
(10.7 KB)
📄
bigint.pm
(22.85 KB)
📄
bignum.pm
(20.64 KB)
📄
bigrat.pm
(15.78 KB)
📄
blib.pm
(2.01 KB)
📄
bytes.pm
(3.65 KB)
📄
bytes_heavy.pl
(758 B)
📄
charnames.pm
(20.44 KB)
📄
constant.pm
(14.38 KB)
📄
deprecate.pm
(4.5 KB)
📄
diagnostics.pm
(18.85 KB)
📄
dumpvar.pl
(15.19 KB)
📁
encoding
📄
experimental.pm
(6.9 KB)
📄
feature.pm
(18.56 KB)
📄
fields.pm
(9.25 KB)
📄
filetest.pm
(3.91 KB)
📄
if.pm
(3.53 KB)
📄
integer.pm
(3.18 KB)
📄
less.pm
(3.13 KB)
📄
locale.pm
(4.74 KB)
📁
mach
📄
meta_notation.pm
(2.07 KB)
📄
ok.pm
(967 B)
📄
open.pm
(8.31 KB)
📁
overload
📄
overload.pm
(52.05 KB)
📄
overloading.pm
(1.77 KB)
📄
parent.pm
(2.64 KB)
📁
perl
📄
perl5db.pl
(309.69 KB)
📄
perlfaq.pm
(77 B)
📁
pod
📄
sigtrap.pm
(8.53 KB)
📄
sort.pm
(3.82 KB)
📄
strict.pm
(4.63 KB)
📄
subs.pm
(901 B)
📁
unicore
📄
utf8.pm
(10.18 KB)
📄
vars.pm
(2.4 KB)
📁
version
📄
version.pm
(1.93 KB)
📄
version.pod
(9.6 KB)
📄
vmsish.pm
(4.21 KB)
📁
warnings
📄
warnings.pm
(49.35 KB)
Editing: 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;
Upload File
Create Folder