uawdijnntqw1x1x1
IP : 18.117.77.54
Hostname : ns1.eurodns.top
Kernel : Linux ns1.eurodns.top 4.18.0-553.5.1.lve.1.el7h.x86_64 #1 SMP Fri Jun 14 14:24:52 UTC 2024 x86_64
Disable Function : mail,sendmail,exec,passthru,shell_exec,system,popen,curl_multi_exec,parse_ini_file,show_source,eval,open_base,symlink
OS : Linux
PATH:
/
home
/
..
/
opt
/
..
/
usr
/
share
/
screen
/
..
/
locale
/
gor
/
..
/
jpr
/
..
/
sel
/
..
/
lb
/
..
/
zza
/
..
/
akk
/
..
/
rn
/
..
/
kha
/
..
/
.
/
ne
/
..
/
wo
/
..
/
zbl
/
..
/
te
/
..
/
nso
/
..
/
es_DO
/
..
/
my_MM
/
..
/
chy
/
..
/
war
/
..
/
dak
/
..
/
os
/
..
/
mun
/
..
/
pag
/
..
/
und
/
..
/
ce
/
..
/
chb
/
..
/
bo
/
..
/
la
/
..
/
hmn
/
..
/
gsw
/
..
/
son
/
..
/
elx
/
..
/
.
/
..
/
perl5
/
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); } 1;
/home/../opt/../usr/share/screen/../locale/gor/../jpr/../sel/../lb/../zza/../akk/../rn/../kha/.././ne/../wo/../zbl/../te/../nso/../es_DO/../my_MM/../chy/../war/../dak/../os/../mun/../pag/../und/../ce/../chb/../bo/../la/../hmn/../gsw/../son/../elx/.././../perl5/DirHandle.pm