17 lines
356 B
Perl
17 lines
356 B
Perl
|
;# $RCSfile: importenv.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:24:02 $
|
||
|
|
|
||
|
|
;# This file, when interpreted, pulls the environment into normal variables.
|
||
|
|
;# Usage:
|
||
|
|
;# require 'importenv.pl';
|
||
|
|
;# or
|
||
|
|
;# #include <importenv.pl>
|
||
|
|
|
||
|
|
local($tmp,$key) = '';
|
||
|
|
|
||
|
|
foreach $key (keys(%ENV)) {
|
||
|
|
$tmp .= "\$$key = \$ENV{'$key'};" if $key =~ /^[A-Za-z]\w*$/;
|
||
|
|
}
|
||
|
|
eval $tmp;
|
||
|
|
|
||
|
|
1;
|