File Manager

X7ROOT File Manager

Current Path: /usr/share/perl5

usr / share / perl5 /

📁 ..
📄 AnyDBM_File.pm(2.56 KB)
📁 App
📁 Archive
📁 Attribute
📄 AutoLoader.pm(14.66 KB)
📄 AutoSplit.pm(19.18 KB)
📁 B
📄 Benchmark.pm(27.87 KB)
📄 CORE.pod(2.7 KB)
📁 CPAN
📄 CPAN.pm(132.91 KB)
📁 Class
📁 Compress
📁 Config
📄 DB.pm(18.43 KB)
📁 DBM_Filter
📄 DBM_Filter.pm(14.06 KB)
📁 Devel
📄 DirHandle.pm(1.52 KB)
📄 Dumpvalue.pm(16.5 KB)
📁 Encode
📄 English.pm(4.34 KB)
📁 ExtUtils
📁 File
📄 FileCache.pm(5.44 KB)
📄 FileHandle.pm(6.62 KB)
📁 Filter
📄 FindBin.pm(4.45 KB)
📁 Getopt
📁 HTTP
📁 I18N
📁 IO
📁 IPC
📁 JSON
📁 LWP
📄 LWP.pm(21.15 KB)
📁 Locale
📁 Log
📁 Math
📁 Memoize
📄 Memoize.pm(34.4 KB)
📁 Module
📄 NEXT.pm(18.05 KB)
📁 Net
📁 Object
📁 Package
📁 Perl
📁 PerlIO
📄 PerlIO.pm(10.19 KB)
📁 Pod
📄 Safe.pm(24.03 KB)
📁 Search
📄 SelectSaver.pm(1.05 KB)
📄 SelfLoader.pm(16.97 KB)
📄 Symbol.pm(4.68 KB)
📁 Term
📁 Test
📄 Test.pm(28.13 KB)
📁 Text
📁 Thread
📄 Thread.pm(8.09 KB)
📁 Tie
📁 Time
📄 UNIVERSAL.pm(6.97 KB)
📁 URI
📄 URI.pm(33.01 KB)
📁 Unicode
📁 User
📁 Version
📄 XSLoader.pm(9.99 KB)
📄 _charnames.pm(29.8 KB)
📄 autouse.pm(4.14 KB)
📄 base.pm(6.37 KB)
📄 bigint.pm(17.44 KB)
📄 bignum.pm(18.23 KB)
📄 bigrat.pm(14.11 KB)
📄 blib.pm(2.04 KB)
📄 bytes.pm(2.96 KB)
📄 bytes_heavy.pl(758 B)
📄 charnames.pm(19.22 KB)
📄 deprecate.pm(3.01 KB)
📄 diagnostics.pm(17.96 KB)
📄 dumpvar.pl(14.96 KB)
📁 encoding
📄 feature.pm(11.06 KB)
📄 fields.pm(9.28 KB)
📄 filetest.pm(3.91 KB)
📄 if.pm(1.13 KB)
📄 integer.pm(3.19 KB)
📄 less.pm(3.13 KB)
📄 locale.pm(2.72 KB)
📄 lwpcook.pod(9.05 KB)
📄 lwptut.pod(24.89 KB)
📄 open.pm(7.83 KB)
📁 overload
📄 overload.pm(52.66 KB)
📄 overloading.pm(1.77 KB)
📄 perl5db.pl(302.79 KB)
📄 perlfaq.pm(94 B)
📁 pod
📄 sigtrap.pm(7.46 KB)
📄 sort.pm(5.95 KB)
📄 strict.pm(3.84 KB)
📄 subs.pm(845 B)
📁 unicore
📄 utf8.pm(7.6 KB)
📄 utf8_heavy.pl(30.1 KB)
📄 vars.pm(2.3 KB)
📁 vendor_perl
📄 vmsish.pm(4.22 KB)
📁 warnings
📄 warnings.pm(18.34 KB)

Editing: DirHandle.pm

package DirHandle;

our $VERSION = '1.04';

=head1 NAME

DirHandle - supply object methods for directory handles

=head1 SYNOPSIS

use DirHandle;
    $d = DirHandle->new(".");
    if (defined $d) {
        while (defined($_ = $d->read)) { something($_); }
        $d->rewind;
        while (defined($_ = $d->read)) { something_else($_); }
        undef $d;
    }

=head1 DESCRIPTION

The C<DirHandle> method provide an alternative interface to the
opendir(), closedir(), readdir(), and rewinddir() functions.

The only objective benefit to using C<DirHandle> is that it avoids
namespace pollution by creating globs to hold directory handles.

=cut

require 5.000;
use Carp;
use Symbol;

sub new {
    @_ >= 1 && @_ <= 2 or croak 'usage: DirHandle->new( [DIRNAME] )';
    my $class = shift;
    my $dh = gensym;
    if (@_) {
	DirHandle::open($dh, $_[0])
	    or return undef;
    }
    bless $dh, $class;
}

sub DESTROY {
    my ($dh) = @_;
    # Don't warn about already being closed as it may have been closed 
    # correctly, or maybe never opened at all.
    local($., $@, $!, $^E, $?);
    no warnings 'io';
    closedir($dh);
}

sub open {
    @_ == 2 or croak 'usage: $dh->open(DIRNAME)';
    my ($dh, $dirname) = @_;
    opendir($dh, $dirname);
}

sub close {
    @_ == 1 or croak 'usage: $dh->close()';
    my ($dh) = @_;
    closedir($dh);
}

sub read {
    @_ == 1 or croak 'usage: $dh->read()';
    my ($dh) = @_;
    readdir($dh);
}

sub rewind {
    @_ == 1 or croak 'usage: $dh->rewind()';
    my ($dh) = @_;
    rewinddir($dh);
}

X7ROOT File Manager

Editing: DirHandle.pm

Upload File

Create Folder