SM0 She11

Path: / / usr / share / perl5

Full Path (server): /usr/share/perl5

📄 AnyDBM_File.pm [E] [D]
📁 App Open [D]
📁 Archive Open [D]
📁 Attribute Open [D]
📄 AutoLoader.pm [E] [D]
📄 AutoSplit.pm [E] [D]
📁 B Open [D]
📄 Benchmark.pm [E] [D]
📄 CORE.pod [E] [D]
📁 Class Open [D]
📁 Compress Open [D]
📁 Config Open [D]
📄 DB.pm [E] [D]
📁 DBM_Filter Open [D]
📄 DBM_Filter.pm [E] [D]
📁 Devel Open [D]
📄 DirHandle.pm [E] [D]
📄 Dumpvalue.pm [E] [D]
📁 Encode Open [D]
📄 English.pm [E] [D]
📁 ExtUtils Open [D]
📁 File Open [D]
📄 FileCache.pm [E] [D]
📄 FileHandle.pm [E] [D]
📁 Filter Open [D]
📄 FindBin.pm [E] [D]
📁 Getopt Open [D]
📁 HTTP Open [D]
📁 I18N Open [D]
📁 IO Open [D]
📁 IPC Open [D]
📁 JSON Open [D]
📁 LWP Open [D]
📄 LWP.pm [E] [D]
📁 Locale Open [D]
📁 Log Open [D]
📁 Math Open [D]
📁 Memoize Open [D]
📄 Memoize.pm [E] [D]
📁 Module Open [D]
📄 NEXT.pm [E] [D]
📁 Net Open [D]
📁 Package Open [D]
📁 Perl Open [D]
📁 PerlIO Open [D]
📄 PerlIO.pm [E] [D]
📁 Pod Open [D]
📄 Safe.pm [E] [D]
📁 Search Open [D]
📄 SelectSaver.pm [E] [D]
📄 SelfLoader.pm [E] [D]
📄 Symbol.pm [E] [D]
📁 Term Open [D]
📁 Test Open [D]
📄 Test.pm [E] [D]
📁 Text Open [D]
📁 Thread Open [D]
📄 Thread.pm [E] [D]
📁 Tie Open [D]
📁 Time Open [D]
📄 UNIVERSAL.pm [E] [D]
📁 URI Open [D]
📄 URI.pm [E] [D]
📁 Unicode Open [D]
📁 User Open [D]
📁 Version Open [D]
📄 XSLoader.pm [E] [D]
📄 _charnames.pm [E] [D]
📄 autouse.pm [E] [D]
📄 base.pm [E] [D]
📄 bigint.pm [E] [D]
📄 bignum.pm [E] [D]
📄 bigrat.pm [E] [D]
📄 blib.pm [E] [D]
📄 bytes.pm [E] [D]
📄 bytes_heavy.pl [E] [D]
📄 charnames.pm [E] [D]
📄 deprecate.pm [E] [D]
📄 diagnostics.pm [E] [D]
📄 dumpvar.pl [E] [D]
📁 encoding Open [D]
📄 feature.pm [E] [D]
📄 fields.pm [E] [D]
📄 filetest.pm [E] [D]
📄 if.pm [E] [D]
📄 integer.pm [E] [D]
📄 less.pm [E] [D]
📄 locale.pm [E] [D]
📄 lwpcook.pod [E] [D]
📄 lwptut.pod [E] [D]
📄 open.pm [E] [D]
📁 overload Open [D]
📄 overload.pm [E] [D]
📄 overloading.pm [E] [D]
📄 perl5db.pl [E] [D]
📄 perlfaq.pm [E] [D]
📁 pod Open [D]
📄 sigtrap.pm [E] [D]
📄 sort.pm [E] [D]
📄 strict.pm [E] [D]
📄 subs.pm [E] [D]
📁 unicore Open [D]
📄 utf8.pm [E] [D]
📄 utf8_heavy.pl [E] [D]
📄 vars.pm [E] [D]
📁 vendor_perl Open [D]
📄 vmsish.pm [E] [D]
📁 warnings Open [D]
📄 warnings.pm [E] [D]

Editing: English.pm

package English;

our $VERSION = '1.05';

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					= *_	;

# 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			= *]	;