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';
$foo{$_} =~ s/SID/12345/ for keys %foo;
a
Andy Bach
Systems Mangler
Internet: [EMAIL PROTECTED]
VOICE: (608) 261-5738 FAX 264-5932
Remember, the first rule of optimisation is: don't do it yet. :-) Brian
Raven
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
