Gurus,
I'm embarrassed to have to ask this, but my books don't mention it, and
neither does perldoc. I'm looking for a way to do a substitution to all
values of a hash in one line, something using, oh, grep, or map... What I
want to do is change the values of this hash:
my %foo = ( '01' => 'abc/SID/def',
'02' => 'bcd/SID/fgh',
'03' => 'hjk/SID/opq' );
to
$foo{'01'} = 'abc/12345/def';
$foo{'02'} = 'bcd/12345/fgh';
$foo{'03'} = 'hjk/12345/opq';
In other words, I want to replace the text 'SID' in each value of the hash
with the text '12345' using one line of code. Can this be done?
Thanks,
Deane Rothenmaier
Programmer/Analyst
Walgreens Corp.
847-914-5150
Let us permit nature to have her way; she understands her business better
than we do. -- Michel de Montaigne_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
