At 10:17:47, on 11.25.03:
Cracks in my tinfoil beanie
allowed Brian Gerard to seep these bits into my brain:,
> And the clouds parted, and deb said...
> > What am I missing?
>
> Two things:
>
> 1) The regex you're looking for is likely /[-\w]+/, which says "match one
> or more dashes or word characters". This will slurp up everything up to
> the first non-word, non-dash character.
Gagh, it's so simple. I had tried /[\w-] w/o the
post-appended "+" and of course it failed. So close...
> 2) You can probably simplify your script to
>
> ## begin ##
>
> while (<DATA>) {
> (print "$& \n" and $name{$&}++) if /[-\w+]+/;
> }
Thanks, this helps a lot. :-)
deb
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
