home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / gnu / perl-4.036.tar.gz / perl-4.036.tar / perl-4.036 / atarist / test / printenv < prev    next >
Text File  |  1993-02-08  |  242b  |  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.