golden hour

/usr/share/perl/5.30.0

⬆️ Go Up

Upload

File/Folder	Size	Actions
AnyDBM_File.pm	2.56 KB	Del OK
App	-	Del OK
Archive	-	Del OK
Attribute	-	Del OK
AutoLoader.pm	15.43 KB	Del OK
AutoSplit.pm	19.18 KB	Del OK
B	-	Del OK
Benchmark.pm	30.3 KB	Del OK
CORE.pod	3.11 KB	Del OK
CPAN	-	Del OK
CPAN.pm	138.75 KB	Del OK
Carp	-	Del OK
Carp.pm	35.12 KB	Del OK
Class	-	Del OK
Compress	-	Del OK
Config	-	Del OK
DB.pm	18.48 KB	Del OK
DBM_Filter	-	Del OK
DBM_Filter.pm	14.05 KB	Del OK
Devel	-	Del OK
Digest	-	Del OK
Digest.pm	10.45 KB	Del OK
DirHandle.pm	2.04 KB	Del OK
Dumpvalue.pm	17.14 KB	Del OK
Encode	-	Del OK
English.pm	4.65 KB	Del OK
Env.pm	5.39 KB	Del OK
Exporter	-	Del OK
Exporter.pm	18.36 KB	Del OK
ExtUtils	-	Del OK
Fatal.pm	56.91 KB	Del OK
File	-	Del OK
FileCache.pm	5.42 KB	Del OK
FileHandle.pm	6.63 KB	Del OK
Filter	-	Del OK
FindBin.pm	4.45 KB	Del OK
Getopt	-	Del OK
HTTP	-	Del OK
I18N	-	Del OK
IO	-	Del OK
IPC	-	Del OK
Internals.pod	2.51 KB	Del OK
JSON	-	Del OK
Locale	-	Del OK
Math	-	Del OK
Memoize	-	Del OK
Memoize.pm	35.34 KB	Del OK
Module	-	Del OK
NEXT.pm	18.54 KB	Del OK
Net	-	Del OK
Params	-	Del OK
Parse	-	Del OK
Perl	-	Del OK
PerlIO	-	Del OK
PerlIO.pm	10.21 KB	Del OK
Pod	-	Del OK
Safe.pm	24.49 KB	Del OK
Search	-	Del OK
SelectSaver.pm	1.05 KB	Del OK
SelfLoader.pm	17.27 KB	Del OK
Symbol.pm	4.69 KB	Del OK
TAP	-	Del OK
Term	-	Del OK
Test	-	Del OK
Test.pm	29.34 KB	Del OK
Test2	-	Del OK
Test2.pm	6.24 KB	Del OK
Text	-	Del OK
Thread	-	Del OK
Thread.pm	8.09 KB	Del OK
Tie	-	Del OK
Time	-	Del OK
UNIVERSAL.pm	6.44 KB	Del OK
Unicode	-	Del OK
User	-	Del OK
XSLoader.pm	10.99 KB	Del OK
_charnames.pm	32.39 KB	Del OK
autodie	-	Del OK
autodie.pm	12.58 KB	Del OK
autouse.pm	4.14 KB	Del OK
base.pm	10.7 KB	Del OK
bigint.pm	22.85 KB	Del OK
bignum.pm	20.64 KB	Del OK
bigrat.pm	15.78 KB	Del OK
blib.pm	2.01 KB	Del OK
bytes.pm	3.65 KB	Del OK
bytes_heavy.pl	758 B	Del OK
charnames.pm	20.38 KB	Del OK
constant.pm	14.38 KB	Del OK
deprecate.pm	5.07 KB	Del OK
diagnostics.pm	18.59 KB	Del OK
dumpvar.pl	15.19 KB	Del OK
encoding	-	Del OK
experimental.pm	6.9 KB	Del OK
feature.pm	17.28 KB	Del OK
fields.pm	9.25 KB	Del OK
filetest.pm	3.91 KB	Del OK
if.pm	3.53 KB	Del OK
integer.pm	3.18 KB	Del OK
less.pm	3.13 KB	Del OK
locale.pm	4.74 KB	Del OK
meta_notation.pm	2.07 KB	Del OK
ok.pm	967 B	Del OK
open.pm	7.83 KB	Del OK
overload	-	Del OK
overload.pm	52.04 KB	Del OK
overloading.pm	1.77 KB	Del OK
parent.pm	2.51 KB	Del OK
perl5db.pl	309.69 KB	Del OK
perlfaq.pm	77 B	Del OK
pod	-	Del OK
sigtrap.pm	8.53 KB	Del OK
sort.pm	3.82 KB	Del OK
strict.pm	4.63 KB	Del OK
subs.pm	901 B	Del OK
unicore	-	Del OK
utf8.pm	10.18 KB	Del OK
utf8_heavy.pl	26.66 KB	Del OK
vars.pm	2.4 KB	Del OK
version	-	Del OK
version.pm	1.93 KB	Del OK
version.pod	9.6 KB	Del OK
vmsish.pm	4.21 KB	Del OK
warnings	-	Del OK
warnings.pm	48.82 KB	Del OK

Edit: Env.pm

package Env; our $VERSION = '1.04'; =head1 NAME Env - perl module that imports environment variables as scalars or arrays =head1 SYNOPSIS use Env; use Env qw(PATH HOME TERM); use Env qw($SHELL @LD_LIBRARY_PATH); =head1 DESCRIPTION Perl maintains environment variables in a special hash named C<%ENV>. For when this access method is inconvenient, the Perl module C<Env> allows environment variables to be treated as scalar or array variables. The C<Env::import()> function ties environment variables with suitable names to global Perl variables with the same names. By default it ties all existing environment variables (C<keys %ENV>) to scalars. If the C<import> function receives arguments, it takes them to be a list of variables to tie; it's okay if they don't yet exist. The scalar type prefix '$' is inferred for any element of this list not prefixed by '$' or '@'. Arrays are implemented in terms of C<split> and C<join>, using C<$Config::Config{path_sep}> as the delimiter. After an environment variable is tied, merely use it like a normal variable. You may access its value @path = split(/:/, $PATH); print join("\n", @LD_LIBRARY_PATH), "\n"; or modify it $PATH .= ":."; push @LD_LIBRARY_PATH, $dir; however you'd like. Bear in mind, however, that each access to a tied array variable requires splitting the environment variable's string anew. The code: use Env qw(@PATH); push @PATH, '.'; is equivalent to: use Env qw(PATH); $PATH .= ":."; except that if C<$ENV{PATH}> started out empty, the second approach leaves it with the (odd) value "C<:.>", but the first approach leaves it with "C<.>". To remove a tied environment variable from the environment, assign it the undefined value undef $PATH; undef @LD_LIBRARY_PATH; =head1 LIMITATIONS On VMS systems, arrays tied to environment variables are read-only. Attempting to change anything will cause a warning. =head1 AUTHOR Chip Salzenberg E<lt>F<chip@fin.uucp>E<gt> and Gregor N. Purdy E<lt>F<gregor@focusresearch.com>E<gt> =cut sub import { my ($callpack) = caller(0); my $pack = shift; my @vars = grep /^[\$\@]?[A-Za-z_]\w*$/, (@_ ? @_ : keys(%ENV)); return unless @vars; @vars = map { m/^[\$\@]/ ? $_ : '$'.$_ } @vars; eval "package $callpack; use vars qw(" . join(' ', @vars) . ")"; die $@ if $@; foreach (@vars) { my ($type, $name) = m/^([\$\@])(.*)$/; if ($type eq '$') { tie ${"${callpack}::$name"}, Env, $name; } else { if ($^O eq 'VMS') { tie @{"${callpack}::$name"}, Env::Array::VMS, $name; } else { tie @{"${callpack}::$name"}, Env::Array, $name; } } } } sub TIESCALAR { bless \($_[1]); } sub FETCH { my ($self) = @_; $ENV{$$self}; } sub STORE { my ($self, $value) = @_; if (defined($value)) { $ENV{$$self} = $value; } else { delete $ENV{$$self}; } } ###################################################################### package Env::Array; use Config; use Tie::Array; @ISA = qw(Tie::Array); my $sep = $Config::Config{path_sep}; sub TIEARRAY { bless \($_[1]); } sub FETCHSIZE { my ($self) = @_; return 1 + scalar(() = $ENV{$$self} =~ /\Q$sep\E/g); } sub STORESIZE { my ($self, $size) = @_; my @temp = split($sep, $ENV{$$self}); $#temp = $size - 1; $ENV{$$self} = join($sep, @temp); } sub CLEAR { my ($self) = @_; $ENV{$$self} = ''; } sub FETCH { my ($self, $index) = @_; return (split($sep, $ENV{$$self}))[$index]; } sub STORE { my ($self, $index, $value) = @_; my @temp = split($sep, $ENV{$$self}); $temp[$index] = $value; $ENV{$$self} = join($sep, @temp); return $value; } sub EXISTS { my ($self, $index) = @_; return $index < $self->FETCHSIZE; } sub DELETE { my ($self, $index) = @_; my @temp = split($sep, $ENV{$$self}); my $value = splice(@temp, $index, 1, ()); $ENV{$$self} = join($sep, @temp); return $value; } sub PUSH { my $self = shift; my @temp = split($sep, $ENV{$$self}); push @temp, @_; $ENV{$$self} = join($sep, @temp); return scalar(@temp); } sub POP { my ($self) = @_; my @temp = split($sep, $ENV{$$self}); my $result = pop @temp; $ENV{$$self} = join($sep, @temp); return $result; } sub UNSHIFT { my $self = shift; my @temp = split($sep, $ENV{$$self}); my $result = unshift @temp, @_; $ENV{$$self} = join($sep, @temp); return $result; } sub SHIFT { my ($self) = @_; my @temp = split($sep, $ENV{$$self}); my $result = shift @temp; $ENV{$$self} = join($sep, @temp); return $result; } sub SPLICE { my $self = shift; my $offset = shift; my $length = shift; my @temp = split($sep, $ENV{$$self}); if (wantarray) { my @result = splice @temp, $offset, $length, @_; $ENV{$$self} = join($sep, @temp); return @result; } else { my $result = scalar splice @temp, $offset, $length, @_; $ENV{$$self} = join($sep, @temp); return $result; } } ###################################################################### package Env::Array::VMS; use Tie::Array; @ISA = qw(Tie::Array); sub TIEARRAY { bless \($_[1]); } sub FETCHSIZE { my ($self) = @_; my $i = 0; while ($i < 127 and defined $ENV{$$self . ';' . $i}) { $i++; }; return $i; } sub FETCH { my ($self, $index) = @_; return $ENV{$$self . ';' . $index}; } sub EXISTS { my ($self, $index) = @_; return $index < $self->FETCHSIZE; } sub DELETE { } 1;
Save