[Kc] Perl Noob

[Emmanuel Mejias]

Okay I'll give that a try. I think that he wanted us to use the hash that
was in the lesson. thanks again!

On 9/18/07, Frank Wiles <frank at wiles.org> wrote:
>
> On Tue, 18 Sep 2007 13:48:02 -0500
> "Emmanuel Mejias" <emmanuel.mejias at gmail.com> wrote:
>
> > Cool! Thanks all for the feeback and links. I've hit a few of those
> > in the past as well. I'm like John as well, I need to do it to learn
> > it. I've been in the BASH world so a lot of this stuff is new to me
> > and I'm trying to relate how some of the things you can do in Bash
> > how they work in Perl.
> >
> > Well here goes. I just recently started taking an online course in
> > Perl and I've also been using Perl by Example book as a reference. In
> > one of my exercises I have to write a script that prints out a sorted
> > list of environment variables. Well for some reason it is only
> > printing out 3 of the 5 that I specified. It doesn't matter what
> > order I put the environment variables in, it just prints out every
> > other one. In this case it prints out HOME, HOSTNAME and USER, but
> > leaves out TERM and SHELL. What am I not doing right in my code?
> >
> > #!/usr/bin/perl
> >
> > %env = ('USER',
> > 'SHELL',
> > 'HOSTNAME',
> > 'TERM',
> > 'HOME');
> >
> > foreach $key (sort(keys(%env))){
> > print "$env $ENV{$key}\n";
> > }
> > Thoughts?
>
> You're using a hash like an array when you shouldn't be:
>
> What that is doing is creating this:
>
> $env{USER} = 'SHELL';
> $env{HOSTNAME} = 'TERM';
> $env{HOME} = '';
>
> Do this instead:
>
> my @envs = qw( USER SHELL HOSTNAME TERM HOME );
>
> foreach my $env ( @envs ) {
>     print "$env $ENV{$env}\n";
> }
>
> -------------------------------------------------------
>   Frank Wiles, Revolution Systems, LLC.
>     Personal : frank at wiles.org  http://www.wiles.org
>     Work     : frank at revsys.com http://www.revsys.com
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/kc/attachments/20070918/d4fac983/attachment.html