File Manager

Hackfut Security File Manager

Current Path: /usr/share/perl5

usr / share / perl5 /

📁 ..
📄 AnyDBM_File.pm(2.53 KB)
📁 App
📁 Archive
📁 Attribute
📄 AutoLoader.pm(14.65 KB)
📄 AutoSplit.pm(19.18 KB)
📁 B
📄 Benchmark.pm(27.86 KB)
📁 CGI
📄 CGI.pm(255.35 KB)
📄 CORE.pod(1.53 KB)
📁 CPAN
📄 CPAN.pm(144.4 KB)
📁 CPANPLUS
📄 CPANPLUS.pm(7.1 KB)
📁 Carp
📄 Carp.pm(7.43 KB)
📁 Class
📁 Config
📄 DB.pm(18.75 KB)
📁 DBM_Filter
📄 DBM_Filter.pm(14.08 KB)
📁 Date
📁 Devel
📁 Digest
📄 Digest.pm(10.17 KB)
📄 DirHandle.pm(1.89 KB)
📄 Dumpvalue.pm(16.5 KB)
📁 Encode
📄 English.pm(4.38 KB)
📄 Env.pm(5.05 KB)
📄 Expect.pm(53.44 KB)
📄 Expect.pod(42.71 KB)
📁 Exporter
📄 Exporter.pm(18.16 KB)
📁 ExtUtils
📄 Fatal.pm(40.01 KB)
📁 File
📄 FileCache.pm(5.44 KB)
📄 FileHandle.pm(6.62 KB)
📁 Filter
📄 FindBin.pm(5.53 KB)
📁 Getopt
📁 I18N
📁 IO
📁 IPC
📁 JSON
📁 Locale
📁 Log
📁 Math
📁 Memoize
📄 Memoize.pm(34.47 KB)
📁 Module
📄 NEXT.pm(18.05 KB)
📁 Net
📁 Object
📁 Package
📁 Params
📁 Parse
📁 PerlIO
📄 PerlIO.pm(10.86 KB)
📁 Pod
📄 Safe.pm(23.76 KB)
📁 Search
📄 SelectSaver.pm(1.05 KB)
📄 SelfLoader.pm(16.93 KB)
📄 Shell.pm(8.48 KB)
📄 Switch.pm(27.84 KB)
📄 Symbol.pm(4.68 KB)
📁 TAP
📁 Term
📁 Test
📄 Test.pm(28.13 KB)
📁 Test2
📄 Test2.pm(6.24 KB)
📁 Text
📁 Thread
📄 Thread.pm(8.09 KB)
📁 Tie
📁 Time
📄 UNIVERSAL.pm(6.38 KB)
📁 Unicode
📁 User
📄 abbrev.pl(838 B)
📄 assert.pl(1.27 KB)
📄 attributes.pm(14.53 KB)
📁 autodie
📄 autodie.pm(11.49 KB)
📄 autouse.pm(4.14 KB)
📄 base.pm(6.82 KB)
📄 bigfloat.pl(7.2 KB)
📄 bigint.pl(8.75 KB)
📄 bigint.pm(17.43 KB)
📄 bignum.pm(18.24 KB)
📄 bigrat.pl(4.37 KB)
📄 bigrat.pm(14.1 KB)
📄 blib.pm(2.06 KB)
📄 bytes.pm(2.33 KB)
📄 bytes_heavy.pl(758 B)
📄 cacheout.pl(1.1 KB)
📄 charnames.pm(15.3 KB)
📄 complete.pl(3.12 KB)
📄 constant.pm(12.23 KB)
📄 ctime.pl(1.95 KB)
📄 diagnostics.pm(16.97 KB)
📄 dotsh.pl(2.12 KB)
📄 dumpvar.pl(14.92 KB)
📁 encoding
📄 exceptions.pl(1.7 KB)
📄 fastcwd.pl(1019 B)
📄 feature.pm(4.97 KB)
📄 fields.pm(9.28 KB)
📄 filetest.pm(3.91 KB)
📄 find.pl(1.16 KB)
📄 finddepth.pl(1.1 KB)
📄 flush.pl(642 B)
📄 getcwd.pl(1.39 KB)
📄 getopt.pl(1.29 KB)
📄 getopts.pl(1.37 KB)
📄 hostname.pl(727 B)
📄 if.pm(1.14 KB)
📄 importenv.pl(283 B)
📄 integer.pm(3.19 KB)
📄 less.pm(3.01 KB)
📄 locale.pm(820 B)
📄 look.pl(1.23 KB)
📄 newgetopt.pl(2.16 KB)
📄 ok.pm(967 B)
📄 open.pm(7.56 KB)
📄 open2.pl(185 B)
📄 open3.pl(185 B)
📁 overload
📄 overload.pm(46.92 KB)
📄 overloading.pm(1.76 KB)
📄 parent.pm(2.93 KB)
📄 perl5db.pl(310.24 KB)
📁 pod
📄 pwd.pl(1.44 KB)
📄 shellwords.pl(276 B)
📄 sigtrap.pm(7.43 KB)
📄 sort.pm(5.95 KB)
📄 stat.pl(590 B)
📄 strict.pm(3.63 KB)
📄 subs.pm(842 B)
📄 syslog.pl(4.69 KB)
📄 tainted.pl(164 B)
📄 termcap.pl(4.02 KB)
📄 timelocal.pl(690 B)
📁 unicore
📄 utf8.pm(6.76 KB)
📄 utf8_heavy.pl(7.81 KB)
📄 validate.pl(3.64 KB)
📄 vars.pm(2.3 KB)
📁 vendor_perl
📁 version
📄 vmsish.pm(4.23 KB)
📁 warnings
📄 warnings.pm(15.75 KB)

Editing: English.pm

package English;

our $VERSION = '1.04';

require Exporter;
@ISA = qw(Exporter);

=head1 NAME

English - use nice English (or awk) names for ugly punctuation variables

=head1 SYNOPSIS

use English qw( -no_match_vars ) ;  # Avoids regex performance penalty
    use English;
    ...
    if ($ERRNO =~ /denied/) { ... }

=head1 DESCRIPTION

This module provides aliases for the built-in variables whose
names no one seems to like to read.  Variables with side-effects
which get triggered just by accessing them (like $0) will still 
be affected.

For those variables that have an B<awk> version, both long
and short English alternatives are provided.  For example, 
the C<$/> variable can be referred to either $RS or 
$INPUT_RECORD_SEPARATOR if you are using the English module.

See L<perlvar> for a complete list of these.

=head1 PERFORMANCE

This module can provoke sizeable inefficiencies for regular expressions,
due to unfortunate implementation details.  If performance matters in
your application and you don't need $PREMATCH, $MATCH, or $POSTMATCH,
try doing

use English qw( -no_match_vars ) ;

.  B<It is especially important to do this in modules to avoid penalizing
all applications which use them.>

=cut

no warnings;

my $globbed_match ;

# Grandfather $NAME import
sub import {
    my $this = shift;
    my @list = grep { ! /^-no_match_vars$/ } @_ ;
    local $Exporter::ExportLevel = 1;
    if ( @_ == @list ) {
        *EXPORT = \@COMPLETE_EXPORT ;
        $globbed_match ||= (
	    eval q{
		*MATCH				= *&	;
		*PREMATCH			= *`	;
		*POSTMATCH			= *'	;
		1 ;
	       }
	    || do {
		require Carp ;
		Carp::croak("Can't create English for match leftovers: $@") ;
	    }
	) ;
    }
    else {
        *EXPORT = \@MINIMAL_EXPORT ;
    }
    Exporter::import($this,grep {s/^\$/*/} @list);
}

@MINIMAL_EXPORT = qw(
	*ARG
	*LAST_PAREN_MATCH
	*INPUT_LINE_NUMBER
	*NR
	*INPUT_RECORD_SEPARATOR
	*RS
	*OUTPUT_AUTOFLUSH
	*OUTPUT_FIELD_SEPARATOR
	*OFS
	*OUTPUT_RECORD_SEPARATOR
	*ORS
	*LIST_SEPARATOR
	*SUBSCRIPT_SEPARATOR
	*SUBSEP
	*FORMAT_PAGE_NUMBER
	*FORMAT_LINES_PER_PAGE
	*FORMAT_LINES_LEFT
	*FORMAT_NAME
	*FORMAT_TOP_NAME
	*FORMAT_LINE_BREAK_CHARACTERS
	*FORMAT_FORMFEED
	*CHILD_ERROR
	*OS_ERROR
	*ERRNO
	*EXTENDED_OS_ERROR
	*EVAL_ERROR
	*PROCESS_ID
	*PID
	*REAL_USER_ID
	*UID
	*EFFECTIVE_USER_ID
	*EUID
	*REAL_GROUP_ID
	*GID
	*EFFECTIVE_GROUP_ID
	*EGID
	*PROGRAM_NAME
	*PERL_VERSION
	*ACCUMULATOR
	*COMPILING
	*DEBUGGING
	*SYSTEM_FD_MAX
	*INPLACE_EDIT
	*PERLDB
	*BASETIME
	*WARNING
	*EXECUTABLE_NAME
	*OSNAME
	*LAST_REGEXP_CODE_RESULT
	*EXCEPTIONS_BEING_CAUGHT
	*LAST_SUBMATCH_RESULT
	@LAST_MATCH_START
	@LAST_MATCH_END
);

@MATCH_EXPORT = qw(
	*MATCH
	*PREMATCH
	*POSTMATCH
);

@COMPLETE_EXPORT = ( @MINIMAL_EXPORT, @MATCH_EXPORT ) ;

# The ground of all being. @ARG is deprecated (5.005 makes @_ lexical)

*ARG					= *_	;

# Matching.

*LAST_PAREN_MATCH			= *+	;
	*LAST_SUBMATCH_RESULT			= *^N ;
	*LAST_MATCH_START			= *-{ARRAY} ;
	*LAST_MATCH_END				= *+{ARRAY} ;

# Input.

*INPUT_LINE_NUMBER			= *.	;
	    *NR					= *.	;
	*INPUT_RECORD_SEPARATOR			= */	;
	    *RS					= */	;

# Output.

*OUTPUT_AUTOFLUSH			= *|	;
	*OUTPUT_FIELD_SEPARATOR			= *,	;
	    *OFS				= *,	;
	*OUTPUT_RECORD_SEPARATOR		= *\	;
	    *ORS				= *\	;

# Interpolation "constants".

*LIST_SEPARATOR				= *"	;
	*SUBSCRIPT_SEPARATOR			= *;	;
	    *SUBSEP				= *;	;

# Formats

*FORMAT_PAGE_NUMBER			= *%	;
	*FORMAT_LINES_PER_PAGE			= *=	;
	*FORMAT_LINES_LEFT			= *-	;
	*FORMAT_NAME				= *~	;
	*FORMAT_TOP_NAME			= *^	;
	*FORMAT_LINE_BREAK_CHARACTERS		= *:	;
	*FORMAT_FORMFEED			= *^L	;

# Error status.

*CHILD_ERROR				= *?	;
	*OS_ERROR				= *!	;
	    *ERRNO				= *!	;
	*OS_ERROR				= *!	;
	    *ERRNO				= *!	;
	*EXTENDED_OS_ERROR			= *^E	;
	*EVAL_ERROR				= *@	;

# Process info.

*PROCESS_ID				= *$	;
	    *PID				= *$	;
	*REAL_USER_ID				= *<	;
	    *UID				= *<	;
	*EFFECTIVE_USER_ID			= *>	;
	    *EUID				= *>	;
	*REAL_GROUP_ID				= *(	;
	    *GID				= *(	;
	*EFFECTIVE_GROUP_ID			= *)	;
	    *EGID				= *)	;
	*PROGRAM_NAME				= *0	;

# Internals.

*PERL_VERSION				= *^V	;
	*ACCUMULATOR				= *^A	;
	*COMPILING				= *^C	;
	*DEBUGGING				= *^D	;
	*SYSTEM_FD_MAX				= *^F	;
	*INPLACE_EDIT				= *^I	;
	*PERLDB					= *^P	;
	*LAST_REGEXP_CODE_RESULT		= *^R	;
	*EXCEPTIONS_BEING_CAUGHT		= *^S	;
	*BASETIME				= *^T	;
	*WARNING				= *^W	;
	*EXECUTABLE_NAME			= *^X	;
	*OSNAME					= *^O	;

# Deprecated.

#	*ARRAY_BASE				= *[	;
#	*OFMT					= *#	;
#	*OLD_PERL_VERSION			= *]	;

Hackfut Security File Manager

Editing: English.pm

Upload File

Create Folder