On Sep 6, John W. Krahn said:
>> map { $_, delete $myhash{$_} } grep /^1\D/, keys %myhash;
>
>Very good Gunnar! But the regexp may not work in all cases.
>
>my %myNEWhash = map { $_, delete $myhash{$_} } grep /^1(?:\D|$)/, keys %myhash;
That regex can also be written as /^1(?!\d)/, which reads "start of
string, '1', NOT followed by a digit".
--
Jeff "japhy" Pinyan % How can we ever be the sold short or
RPI Acacia Brother #734 % the cheated, we who for every service
http://japhy.perlmonk.org/ % have long ago been overpaid?
http://www.perlmonks.org/ % -- Meister Eckhart
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
