File Manager

X7ROOT File Manager

Current Path: /usr/share/perl5

usr / share / perl5 /

?? ..
?? AnyDBM_File.pm(2.56 KB)
?? Attribute
?? AutoLoader.pm(15.43 KB)
?? AutoSplit.pm(19.18 KB)
?? B
?? Benchmark.pm(30.3 KB)
?? CORE.pod(3.11 KB)
?? CPAN
?? Class
?? Compress
?? Config
?? DB.pm(18.48 KB)
?? DBM_Filter
?? DBM_Filter.pm(14.05 KB)
?? Devel
?? DirHandle.pm(1.52 KB)
?? Dumpvalue.pm(17.14 KB)
?? English.pm(4.65 KB)
?? ExtUtils
?? File
?? FileCache.pm(5.44 KB)
?? FileHandle.pm(6.63 KB)
?? FindBin.pm(4.45 KB)
?? Getopt
?? I18N
?? IO
?? IPC
?? Internals.pod(2.52 KB)
?? Locale
?? Math
?? Memoize
?? Memoize.pm(35.34 KB)
?? Module
?? NEXT.pm(18.4 KB)
?? Net
?? PerlIO.pm(10.21 KB)
?? Pod
?? Safe.pm(24.49 KB)
?? Search
?? SelectSaver.pm(1.05 KB)
?? SelfLoader.pm(17.28 KB)
?? Symbol.pm(4.69 KB)
?? Term
?? Test.pm(29.35 KB)
?? Text
?? Thread
?? Thread.pm(8.09 KB)
?? Tie
?? Time
?? UNIVERSAL.pm(6.44 KB)
?? URI
?? URI.pm(33.97 KB)
?? Unicode
?? User
?? XSLoader.pm(11 KB)
?? _charnames.pm(32.39 KB)
?? autouse.pm(4.14 KB)
?? base.pm(10.72 KB)
?? blib.pm(2.04 KB)
?? bytes.pm(3.67 KB)
?? bytes_heavy.pl(758 B)
?? charnames.pm(20.38 KB)
?? deprecate.pm(3.01 KB)
?? diagnostics.pm(18.59 KB)
?? dumpvar.pl(15.19 KB)
?? encoding
?? feature.pm(16.68 KB)
?? fields.pm(9.27 KB)
?? filetest.pm(3.91 KB)
?? if.pm(3.26 KB)
?? integer.pm(3.18 KB)
?? less.pm(3.13 KB)
?? locale.pm(4.74 KB)
?? meta_notation.pm(2.07 KB)
?? open.pm(7.83 KB)
?? overload
?? overload.pm(52.06 KB)
?? overloading.pm(1.77 KB)
?? perl5db.pl(309 KB)
?? pod
?? sigtrap.pm(7.43 KB)
?? sort.pm(5.94 KB)
?? strict.pm(4.63 KB)
?? subs.pm(848 B)
?? unicore
?? utf8.pm(8.9 KB)
?? utf8_heavy.pl(30.87 KB)
?? vars.pm(2.36 KB)
?? vendor_perl
?? vmsish.pm(4.21 KB)
?? warnings
?? warnings.pm(43.71 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;
}

X7ROOT File Manager

Editing: SelectSaver.pm

Upload File

Create Folder