home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / perl-4.036 / atarist / test / printenv < prev    next >
Encoding:
Text File  |  1993-02-08  |  242 b   |  17 lines
  1. $exit = 0;
  2. $\ = "\n";
  3. if($#ARGV >= 0) {
  4.     foreach (@ARGV) {
  5.     if(defined $ENV{$_}) {
  6.         print $ENV{$_};
  7.         } else {
  8.         $exit = 1;
  9.         }
  10.     }
  11. } else {
  12.     foreach (sort keys %ENV) {
  13.     print $_, '=', $ENV{$_};
  14.     }
  15. }
  16. exit $exit;
  17.