17 lines
386 B
Perl
17 lines
386 B
Perl
;# $Header: /home/cvs/386BSD/ports/lang/perl/lib/importenv.pl,v 1.1.1.1 1993/08/23 21:29:53 nate Exp $
|
|
|
|
;# 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;
|