home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / slperl / printenv < prev    next >
Encoding:
Text File  |  1993-10-23  |  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.