Re: [FWP] words words words

["Bernie Cosell" <bernie@fantasyfarm.com>]

On 19 May 2000, at 9:17, tayers@bridge.com wrote:

> No epiphanies here, but this one is a lot faster than your fastest and
> not much longer than your shortest.
> 
>   #!perl -n
> 
>   BEGIN {
>     open T, "threes";
>     chop(@t=<T>);
>     @t{@t} = (1) x @t;
>   }
>   grep {!$t{$_}} /(...)/g or print;

Dumb question [as I try to puzzle out how/if this works].  Is this a 
typo:

>     @t{@t} = (1) x @t;
      ^
       '%' here, perhaps??

 /Bernie\

-- 
Bernie Cosell                     Fantasy Farm Fibers
mailto:bernie@fantasyfarm.com     Pearisburg, VA
    -->  Too many people, too few sheep  <--          

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe