golden hour

/usr/share/perl5/vendor_perl

⬆️ Go Up

Upload

File/Folder	Size	Actions
Algorithm	-	Del OK
App	-	Del OK
Archive	-	Del OK
Authen	-	Del OK
CGI	-	Del OK
CGI.pm	122.63 KB	Del OK
CGI.pod	66.13 KB	Del OK
CPAN	-	Del OK
CPAN.pm	144.4 KB	Del OK
Carp	-	Del OK
Carp.pm	35.12 KB	Del OK
Config	-	Del OK
Crypt	-	Del OK
Data	-	Del OK
Date	-	Del OK
Digest	-	Del OK
Digest.pm	10.96 KB	Del OK
Encode	-	Del OK
Env.pm	5.39 KB	Del OK
Error	-	Del OK
Error.pm	29.45 KB	Del OK
Expect.pm	98.09 KB	Del OK
Exporter	-	Del OK
ExtUtils	-	Del OK
Fatal.pm	57.7 KB	Del OK
Fh.pm	166 B	Del OK
File	-	Del OK
Filter	-	Del OK
Getopt	-	Del OK
Git	-	Del OK
Git.pm	46.87 KB	Del OK
HTML	-	Del OK
HTTP	-	Del OK
IO	-	Del OK
IPC	-	Del OK
Importer.pm	41.53 KB	Del OK
JSON	-	Del OK
LWP	-	Del OK
LWP.pm	21.17 KB	Del OK
List	-	Del OK
Locale	-	Del OK
MIME	-	Del OK
MRO	-	Del OK
Math	-	Del OK
Module	-	Del OK
Mozilla	-	Del OK
Net	-	Del OK
Object	-	Del OK
POD2	-	Del OK
Package	-	Del OK
Params	-	Del OK
Parse	-	Del OK
Perl	-	Del OK
PerlIO	-	Del OK
Pod	-	Del OK
Regexp	-	Del OK
Software	-	Del OK
Sub	-	Del OK
Switch.pm	28.19 KB	Del OK
TAP	-	Del OK
Term	-	Del OK
Test	-	Del OK
Test2	-	Del OK
Test2.pm	6.24 KB	Del OK
Text	-	Del OK
Thread	-	Del OK
Tie	-	Del OK
Time	-	Del OK
TimeDate.pm	267 B	Del OK
Try	-	Del OK
Types	-	Del OK
WWW	-	Del OK
XML	-	Del OK
YAML	-	Del OK
YAML.pm	3.12 KB	Del OK
YAML.pod	22.62 KB	Del OK
autodie	-	Del OK
autodie.pm	12.14 KB	Del OK
bigint.pm	22.85 KB	Del OK
bignum.pm	20.64 KB	Del OK
bigrat.pm	15.78 KB	Del OK
constant.pm	14.38 KB	Del OK
experimental.pm	7.39 KB	Del OK
inc	-	Del OK
lib	-	Del OK
libwww	-	Del OK
local	-	Del OK
newgetopt.pl	2.15 KB	Del OK
ok.pm	967 B	Del OK
parent.pm	2.64 KB	Del OK
perldoc.pod	9.16 KB	Del OK
perlfaq.pm	77 B	Del OK
perlfaq.pod	22.26 KB	Del OK
perlfaq1.pod	14.09 KB	Del OK
perlfaq2.pod	9.16 KB	Del OK
perlfaq3.pod	36.72 KB	Del OK
perlfaq4.pod	88.69 KB	Del OK
perlfaq5.pod	54 KB	Del OK
perlfaq6.pod	38.61 KB	Del OK
perlfaq7.pod	36.93 KB	Del OK
perlfaq8.pod	48.77 KB	Del OK
perlfaq9.pod	14.86 KB	Del OK
perlglossary.pod	134.02 KB	Del OK
perlxs.pod	82.35 KB	Del OK
perlxstut.pod	48.92 KB	Del OK
perlxstypemap.pod	23.44 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