golden hour

/usr/share/perl5/vendor_perl

⬆️ Go Up

Upload

File/Folder	Size	Actions
App	-	Del OK
Archive	-	Del OK
B	-	Del OK
Bundle	-	Del OK
Business	-	Del OK
CGI	-	Del OK
CGI.pm	255.24 KB	Del OK
CPAN	-	Del OK
CPANPLUS	-	Del OK
CPANPLUS.pm	7.05 KB	Del OK
Carp	-	Del OK
Carp.pm	19.93 KB	Del OK
DBIx	-	Del OK
Data	-	Del OK
Date	-	Del OK
Devel	-	Del OK
Digest	-	Del OK
Digest.pm	10.35 KB	Del OK
Encode	-	Del OK
Env.pm	5.39 KB	Del OK
Error	-	Del OK
Error.pm	24.27 KB	Del OK
Expect.pm	53.44 KB	Del OK
Expect.pod	42.71 KB	Del OK
Exporter	-	Del OK
Exporter.pm	18.31 KB	Del OK
ExtUtils	-	Del OK
Fatal.pm	45.16 KB	Del OK
File	-	Del OK
Getopt	-	Del OK
Git	-	Del OK
Git.pm	42.55 KB	Del OK
HTML	-	Del OK
HTTP	-	Del OK
IO	-	Del OK
IPC	-	Del OK
JSON	-	Del OK
LWP	-	Del OK
Locale	-	Del OK
Log	-	Del OK
Module	-	Del OK
Mozilla	-	Del OK
Net	-	Del OK
POD2	-	Del OK
Params	-	Del OK
Parse	-	Del OK
Perl	-	Del OK
Perl4	-	Del OK
Pod	-	Del OK
RPC	-	Del OK
Switch.pm	27.79 KB	Del OK
TAP	-	Del OK
Term	-	Del OK
Test	-	Del OK
Text	-	Del OK
Thread	-	Del OK
Time	-	Del OK
Try	-	Del OK
Types	-	Del OK
Version	-	Del OK
WWW	-	Del OK
abbrev.pl	819 B	Del OK
assert.pl	1.27 KB	Del OK
autodie	-	Del OK
autodie.pm	11.83 KB	Del OK
bigfloat.pl	7.14 KB	Del OK
bigint.pl	8.71 KB	Del OK
bigrat.pl	4.35 KB	Del OK
cacheout.pl	1.1 KB	Del OK
chat2.pl	9.73 KB	Del OK
common	-	Del OK
complete.pl	3.12 KB	Del OK
constant.pm	13.04 KB	Del OK
ctime.pl	1.93 KB	Del OK
dotsh.pl	2.12 KB	Del OK
exceptions.pl	1.7 KB	Del OK
fastcwd.pl	1019 B	Del OK
find.pl	1.16 KB	Del OK
finddepth.pl	1.1 KB	Del OK
flush.pl	642 B	Del OK
ftp.pl	23.53 KB	Del OK
getcwd.pl	1.37 KB	Del OK
getopt.pl	1.27 KB	Del OK
getopts.pl	1.35 KB	Del OK
hostname.pl	727 B	Del OK
importenv.pl	283 B	Del OK
inc	-	Del OK
lib	-	Del OK
local	-	Del OK
look.pl	1.23 KB	Del OK
newgetopt.pl	2.15 KB	Del OK
open2.pl	185 B	Del OK
open3.pl	185 B	Del OK
parent.pm	2.83 KB	Del OK
perldoc.pod	8.25 KB	Del OK
pwd.pl	1.44 KB	Del OK
shellwords.pl	280 B	Del OK
stat.pl	525 B	Del OK
syslog.pl	4.69 KB	Del OK
tainted.pl	164 B	Del OK
termcap.pl	4.02 KB	Del OK
timelocal.pl	690 B	Del OK
validate.pl	3.64 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