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

[Eric <eric@lucii.org>]

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