[Summary view] [Print] [Text view]

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