Re: code improvement using LABELS within subroutines????

[Scott R. Godin]

Jeff 'japhy' Pinyan wrote:

On Jul 21, [EMAIL PROTECTED] said:

ok thanks but that does not really help. Sorry.

your right about finger(), but based on my code I want to execute a certain

block label

if ( mary)
finger (mary)

if (jim)
finger(jim)

Oh, then in that case:

  finger($user);

  # ...

  sub finger {
    my $who = shift;

    open GPG, ...;

    if ($who eq 'mary') {
      # ...
    }
    elsif ($who eq 'jim') {
      # ...
    }

    close GPG;
  }

Then again, if you're using Perl 5.7.3 or later, you can use Switch:

use Switch;
use Carp;
finger($user);

sub finger
{
    my $who = shift || croak "no user supplied";
    open GPG, ...;
    switch($who) {
        case 'mary' { #... }
        case 'jim'  { #... }
        case 'blah {
            # multiple lines
            # ...
        }
    }
    close GPG;
}

perldoc Switch for details. :)

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>