Re: A better way ?

[abigail]

On Wed, Apr 17, 2002 at 02:02:02PM -0400, Bill -Sx- Jones wrote:
> I have the habit of doing:
> 
>          last if (substr($vFlag, 1, 3) eq 'END');
> $vSub = \&Sneex   if (substr($vFlag, 1, 5) eq 'SNEEX');
> $vSub = \&Admin   if (substr($vFlag, 1, 5) eq 'ADMIN');
> $vSub = \&Reports if (substr($vFlag, 1, 7) eq 'REPORTS');
> $vSub = \&Logs    if (substr($vFlag, 1, 4) eq 'LOGS');
> $vSub = \&Targets if (substr($vFlag, 1, 7) eq 'TARGETS');
> $vSub = \&Usenet  if (substr($vFlag, 1, 6) eq 'USENET');
> 
> (substr($_, 0, 1) eq '[') ? next : &$vSub;


my @tags = qw /SNEEX ADMIN REPORTS LOGS TARGETS USENET/;
last if 'END' eq substr $vFlag, 1, 3;
next if '['   eq substr $_,     0, 1;
{
    local $" = "|";
    no strict 'refs';
   (ucfirst lc $1) -> () if $vFlag =~ /^.(@tags)/;
}



Abigail