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

["W. Chris Shank" <shankwc@acetechgroup.com>]

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