FileMgr

✏️ /usr/share/perl5/English.pm

✕ Tutup

package English;

our $VERSION = '1.11';

require Exporter;
@ISA = qw(Exporter);

=head1 NAME

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

=head1 SYNOPSIS

use English;
    use English qw( -no_match_vars ) ;  # Avoids regex performance
                                        # penalty in perl 5.18 and
                                        # earlier
    ...
    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

NOTE: This was fixed in perl 5.20.  Mentioning these three variables no
longer makes a speed difference.  This section still applies if your code
is to run on perl 5.18 or earlier.

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
	*OLD_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			= *-{SCALAR}	;
	*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	;
	*OLD_PERL_VERSION			= *]	;
	*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					= *#	;

Batal

⬅ share 91 item

Nama	Tipe	Ukuran	Diubah	Perm	Aksi
📁 Attribute	dir	—	28/11/25 19:18	0755	📂
📁 B	dir	—	28/11/25 19:18	0755	📂
📁 CPAN	dir	—	15/09/24 00:04	0755	📂
📁 Class	dir	—	28/11/25 19:18	0755	📂
📁 Compress	dir	—	30/06/26 03:09	0755	📂
📁 Config	dir	—	28/11/25 19:18	0755	📂
📁 DBM_Filter	dir	—	28/11/25 19:18	0755	📂
📁 Devel	dir	—	28/11/25 19:18	0755	📂
📁 ExtUtils	dir	—	28/11/25 19:24	0755	📂
📁 File	dir	—	30/06/26 03:09	0755	📂
📁 Getopt	dir	—	28/11/25 19:18	0755	📂
📁 I18N	dir	—	28/11/25 19:18	0755	📂
📁 IO	dir	—	29/06/26 12:31	0755	📂
📁 IPC	dir	—	28/11/25 19:18	0755	📂
📁 Locale	dir	—	28/07/25 10:55	0755	📂
📁 Math	dir	—	28/11/25 19:18	0755	📂
📁 Memoize	dir	—	28/11/25 19:18	0755	📂
📁 Module	dir	—	28/11/25 19:18	0755	📂
📁 Net	dir	—	28/11/25 19:18	0755	📂
📁 Pod	dir	—	28/11/25 19:18	0755	📂
📁 Search	dir	—	28/11/25 19:18	0755	📂
📁 Term	dir	—	28/11/25 19:18	0755	📂
📁 Text	dir	—	28/11/25 19:18	0755	📂
📁 Thread	dir	—	28/11/25 19:18	0755	📂
📁 Tie	dir	—	28/11/25 19:18	0755	📂
📁 Time	dir	—	28/11/25 19:18	0755	📂
📁 URI	dir	—	13/09/24 08:06	0755	📂
📁 Unicode	dir	—	28/11/25 19:18	0755	📂
📁 User	dir	—	28/11/25 19:18	0755	📂
📁 encoding	dir	—	28/11/25 19:18	0755	📂
📁 overload	dir	—	28/11/25 19:18	0755	📂
📁 pod	dir	—	28/11/25 19:18	0755	📂
📁 unicore	dir	—	28/11/25 19:18	0755	📂
📁 vendor_perl	dir	—	18/06/26 03:11	0755	📂
📁 warnings	dir	—	28/11/25 19:18	0755	📂
📄 AnyDBM_File.pm	pm	2.6 KB	28/07/25 10:53	0644	✏️ ⬇
📄 AutoLoader.pm	pm	15.4 KB	28/07/25 10:54	0644	✏️ ⬇
📄 AutoSplit.pm	pm	19.2 KB	28/07/25 10:54	0644	✏️ ⬇
📄 Benchmark.pm	pm	30.3 KB	28/07/25 10:54	0644	✏️ ⬇
📄 CORE.pod	pod	3.1 KB	28/07/25 10:53	0644	✏️ ⬇
📄 DB.pm	pm	18.5 KB	28/07/25 10:54	0644	✏️ ⬇
📄 DBM_Filter.pm	pm	14 KB	28/07/25 10:54	0644	✏️ ⬇
📄 DirHandle.pm	pm	2 KB	28/07/25 10:54	0644	✏️ ⬇
📄 Dumpvalue.pm	pm	17.3 KB	28/07/25 10:54	0644	✏️ ⬇
📄 English.pm	pm	4.6 KB	28/07/25 10:54	0644	✏️ ⬇
📄 FileCache.pm	pm	5.4 KB	28/07/25 10:54	0644	✏️ ⬇
📄 FileHandle.pm	pm	6.6 KB	28/07/25 10:54	0644	✏️ ⬇
📄 FindBin.pm	pm	4.5 KB	28/07/25 10:54	0644	✏️ ⬇
📄 Internals.pod	pod	2.5 KB	28/07/25 10:53	0644	✏️ ⬇
📄 Memoize.pm	pm	35.3 KB	28/07/25 10:54	0644	✏️ ⬇
📄 NEXT.pm	pm	18.5 KB	28/07/25 10:54	0644	✏️ ⬇
📄 PerlIO.pm	pm	14.1 KB	28/07/25 10:53	0644	✏️ ⬇
📄 Safe.pm	pm	24.8 KB	28/07/25 10:54	0644	✏️ ⬇
📄 SelectSaver.pm	pm	1.1 KB	28/07/25 10:54	0644	✏️ ⬇
📄 SelfLoader.pm	pm	17.3 KB	28/07/25 10:54	0644	✏️ ⬇
📄 Symbol.pm	pm	4.7 KB	28/07/25 10:54	0644	✏️ ⬇
📄 Test.pm	pm	29.3 KB	28/07/25 10:54	0644	✏️ ⬇
📄 Thread.pm	pm	8.1 KB	28/07/25 10:54	0644	✏️ ⬇
📄 UNIVERSAL.pm	pm	6.4 KB	28/07/25 10:53	0644	✏️ ⬇
📄 URI.pm	pm	34.1 KB	03/03/21 22:16	0644	✏️ ⬇
📄 XSLoader.pm	pm	11 KB	28/07/25 10:53	0644	✏️ ⬇
📄 _charnames.pm	pm	33.4 KB	28/07/25 10:53	0644	✏️ ⬇
📄 autouse.pm	pm	4.1 KB	28/07/25 10:54	0644	✏️ ⬇
📄 base.pm	pm	10.7 KB	28/07/25 10:54	0644	✏️ ⬇
📄 blib.pm	pm	2 KB	28/07/25 10:54	0644	✏️ ⬇
📄 bytes.pm	pm	3.7 KB	28/07/25 10:53	0644	✏️ ⬇
📄 bytes_heavy.pl	pl	758 B	28/07/25 10:53	0644	✏️ ⬇
📄 charnames.pm	pm	20.4 KB	28/07/25 10:53	0644	✏️ ⬇
📄 deprecate.pm	pm	4.5 KB	28/07/25 10:54	0644	✏️ ⬇
📄 diagnostics.pm	pm	18.8 KB	28/07/25 10:54	0644	✏️ ⬇
📄 dumpvar.pl	pl	15.2 KB	28/07/25 10:54	0644	✏️ ⬇
📄 feature.pm	pm	18.6 KB	28/07/25 10:53	0644	✏️ ⬇
📄 fields.pm	pm	9.3 KB	28/07/25 10:54	0644	✏️ ⬇
📄 filetest.pm	pm	3.9 KB	28/07/25 10:54	0644	✏️ ⬇
📄 if.pm	pm	3.5 KB	28/07/25 10:54	0644	✏️ ⬇
📄 integer.pm	pm	3.2 KB	28/07/25 10:53	0644	✏️ ⬇
📄 less.pm	pm	3.1 KB	28/07/25 10:54	0644	✏️ ⬇
📄 locale.pm	pm	4.7 KB	28/07/25 10:54	0644	✏️ ⬇
📄 meta_notation.pm	pm	2.1 KB	28/07/25 10:54	0644	✏️ ⬇
📄 open.pm	pm	8.3 KB	28/07/25 10:54	0644	✏️ ⬇
📄 overload.pm	pm	52.1 KB	28/07/25 10:54	0644	✏️ ⬇
📄 overloading.pm	pm	1.8 KB	28/07/25 10:54	0644	✏️ ⬇
📄 perl5db.pl	pl	309.7 KB	28/07/25 10:54	0644	✏️ ⬇
📄 sigtrap.pm	pm	8.5 KB	28/07/25 10:54	0644	✏️ ⬇
📄 sort.pm	pm	3.8 KB	28/07/25 10:54	0644	✏️ ⬇
📄 strict.pm	pm	4.6 KB	28/07/25 10:53	0644	✏️ ⬇
📄 subs.pm	pm	901 B	28/07/25 10:54	0644	✏️ ⬇
📄 utf8.pm	pm	10.2 KB	28/07/25 10:53	0644	✏️ ⬇
📄 vars.pm	pm	2.4 KB	28/07/25 10:54	0644	✏️ ⬇
📄 vmsish.pm	pm	4.2 KB	28/07/25 10:54	0644	✏️ ⬇
📄 warnings.pm	pm	49.4 KB	28/07/25 10:53	0644	✏️ ⬇

✏️ Rename

🔑 Ubah Permission