#!/usr/bin/perl use strict; %hash = ( ' Key1', ' Value1'); sub doStringTidy { my $string=shift; $string =lc($string); $string=~s/^\s+//; $string=~s/\s+$//; return $string; } sub doHashTidy { my $hash=shift; foreach my $k (keys %{hash}) { $kv=doStringTidy($k); $vv=doStringTidy($hash{$k}); delete $hash->{$k}; $hash{$kv} = $vv; } } doHashTidy(\%hash); foreach my $key ( keys %hash ) { print "key:$key, value:$hash{$key}\n"; }
In reply to Strictly frustrating ! by PearlsOfWisdom
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |