Re: Setting values for undefined environment variables

I would do this

#!/usr/bin/perl 

@wanted = qw(BAD OSTYPE TZ TERM);
foreach $val (@wanted) {
   if ($ENV{$val}) {
      print "$val \t is \t $ENV{$val}\n";
   } else {
      print "$val \t is \t undefined\n";
   }
}
[download]

GIVES:

BAD      is      undefined
OSTYPE   is      OpenBSD
TZ       is      undefined
TERM     is      xterm
[download]

Comment on Re: Setting values for undefined environment variables Select or Download Code

Replies are listed 'Best First'.
•Re^2: Setting values for undefined environment variables by merlyn (Sage) on Oct 24, 2004 at 10:47 UTC
`if ($ENV{$val}) {` [download] That's a truth test, not a defined-ness test or existence test. I think you want: `if (defined $ENV{$val}) {` [download] there, or else you'll be saying "undefined" for envars that are 0 or empty. -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply] [d/l] [select]