SPUG:Rookie Question
Yitzchak Scott-Thoennes
sthoenna at efn.org
Mon Jun 16 18:30:59 CDT 2003
On Mon, 16 Jun 2003 15:40:07 -0700, chuck.orr at attws.com wrote:
>Hello All,
>=20
>I realize this is a rookie question, but I need a quick fix...or a
>pointer to the location where I can find a quick fix. I have a line
>that looks like this:
>
>$uniq - { map m|(^\w+)(\s)|,grep /^[A-Z]{4}MTA|^[A-Z]{4}MKT/, at facode };
I assume $uniq is an object with subtraction overloaded to do something
sensible when subtracting a hash ref :)
Or maybe that was supposed to be =, not -.
How about this (untested):
$uniq = { map /(^[A-Z]{4}M(?:TA|KT)\w*)(\s)/, @facode };
More information about the spug-list
mailing list