lib/importenv.pl

   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;