in reply to redudent hash
If you are using Perl 5.10 you can use the given ... when construction. See perlsyn
Update: Sorry, read too fast. Let's try again:
All the
foreach $id (keys %$HR_Cwnt) { if ($id =~ /.*?\.oracle.*?$/) { delete($$HR_Cwnt{$id}); } }
Can be simplified using Tie::Hash::Regex to something like:
delete $HR_Cwnt->{/.*?\.oracle.*?$/}
citromatik
|
---|
In Section
Seekers of Perl Wisdom