1;# $RCSfile: importenv.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:24:02 $ 2 3;# This file, when interpreted, pulls the environment into normal variables. 4;# Usage: 5;# require 'importenv.pl'; 6;# or 7;# #include <importenv.pl> 8 9local($tmp,$key) = ''; 10 11foreach $key (keys(%ENV)) { 12 $tmp .= "\$$key = \$ENV{'$key'};" if $key =~ /^[A-Za-z]\w*$/; 13} 14eval $tmp; 15 161; 17