[Kc] Perl Noob

[Eric Wilhelm]

# from Andrew Moore
# on Wednesday 19 September 2007 12:49:

>First, instead of using #!/usr/bin/perl -w at the top, let's get rid
>of '-w' and do 'use warnings' instead. The difference is subtle, but
>essentially we just want to enforce warnings on your code, not on all
>modules you may have included (which for now is none). Also, let's add
>'use strict', too.

Maybe my mail isn't reaching the list (or there's an echo?)  Oh well, 
moving on...

 #!/usr/bin/perl
 
 use warnings;
 use strict;
 
 print join("\n",
   map({"$_ is " .
     (exists($ENV{$_}) ?
       (defined($ENV{$_}) ? $ENV{$_} : '-undef-') :
       '-non-existent-'
     )
   } @ARGV)
 ), "\n";

--Eric
-- 
Consumers want choice, consumers want openness.
--Rob Glaser
---------------------------------------------------
    http://scratchcomputing.com
---------------------------------------------------