mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
356 B
16 lines
356 B
;# $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;
|