SPUG:Re: Minimal Typing for Selections; ideas?

[Tom Legrady]

On Mon, 2003-06-09 at 16:53, Scott Blachowicz wrote:


> 	my $delim = "\001";
> 	my @choices = ( ... );
> 	my $choices = $delim . join($delim, @choices) . $delim;
> 


Since 'local' is so rarely used, I hate to see you pass up the opportunity:

{
   local $" = "\001";
   if ( ( @matches = "@choices" =~ /\b(${input}\w*)\b/g ) == 1 ) {
...
}
To