Re: [PLUG] &!&@$%$%## Perl

["Mag Gam" <magawake@gmail.com>]

Chris:

Is there a reason why you chose switch() over if else {} ?

On 7/30/07, W. Chris Shank < shankwc@acetechgroup.com> wrote:

Thanks!

----- Original Message -----
From: Eric <eric@lucii.org>
To: Philadelphia Linux User's Group Discussion List < plug@lists.phillylinux.org>
Sent: Sunday, July 29, 2007 6:12:52 PM GMT-0500
Subject: Re: [PLUG] &!&@$%$%## Perl

Chris:

Putting "my" in front of "$displayName" inside the braces will
restrict the scope of those variables to those enclosing braces.

Remove the "my" from each case line and insert these as lines 2-4:

my $displayName ;
my $sn ;
my $givenName ;



Eric

W. Chris Shank wrote:
> I am trying to do a simple Case statement in perl. I have a file with
> key:value pairs. I can parse out each key and the value via a loop, but
> I only need 3 keys, so I'm trying to make a Case statement where if the
> key equals any of 3 criteria the corresponding value is saved to a
> variable. Here is my script so far - but the value is never written to
> the variable. What am i doing wrong? Thanks perl wizards for your help.
>
> #!/usr/bin/perl
>
> while(<>) {
>     chomp;
>     my ($key,$value) = split(/:/);
>
>   use Switch;
>   switch ($key) {
>         case "displayName"      { my $displayName = $value }
>         case "sn"               { my $sn = $value }
>         case "givenName"        { my $givenName = $value }
>         else { }
>   }
>
> }
> print "displayName $displayName \n";
> print "sn $sn \n";
> print "giveName $givenName \n";
>
>
> --
> W. Chris Shank
> ACE Technology Group, LLC
> www.myremoteITdept.com
> (610) 640-4223
>
> --------------------------------
> Security Note: To protect against computer viruses,
> e-mail programs may prevent sending or receiving
> certain types of file attachments. Check your e-mail
> security settings to determine how attachments are
> handled.
>
>
> ------------------------------------------------------------------------
>
> ___________________________________________________________________________
> Philadelphia Linux Users Group         --        http://www.phillylinux.org
> Announcements - http://lists.phillylinux.org/mailman/listinfo/plug-announce
> General Discussion  --   http://lists.phillylinux.org/mailman/listinfo/plug


--
#  Eric Lucas
#
#                "Oh, I have slipped the surly bond of earth
#                 And danced the skies on laughter-silvered wings...
#                                        -- John Gillespie Magee Jr
___________________________________________________________________________
Philadelphia Linux Users Group         --        http://www.phillylinux.org
Announcements - http://lists.phillylinux.org/mailman/listinfo/plug-announce
General Discussion  --   http://lists.phillylinux.org/mailman/listinfo/plug


--
W. Chris Shank
ACE Technology Group, LLC
www.myremoteITdept.com
(610) 640-4223

--------------------------------
Security Note: To protect against computer viruses, 
e-mail programs may prevent sending or receiving 
certain types of file attachments. Check your e-mail 
security settings to determine how attachments are 
handled. 

___________________________________________________________________________
Philadelphia Linux Users Group         --         http://www.phillylinux.org
Announcements - http://lists.phillylinux.org/mailman/listinfo/plug-announce
General Discussion  --   http://lists.phillylinux.org/mailman/listinfo/plug

___________________________________________________________________________
Philadelphia Linux Users Group         --        http://www.phillylinux.org
Announcements - http://lists.phillylinux.org/mailman/listinfo/plug-announce
General Discussion  --   http://lists.phillylinux.org/mailman/listinfo/plug