Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re^2: Strictly frustrating !

by ramlight (Friar)
on Jul 26, 2013 at 15:30 UTC ( #1046541=note: print w/replies, xml ) Need Help??


in reply to Re: Strictly frustrating !
in thread Strictly frustrating !

This looks like the problem to me as well. (I'm a little late getting my answer in.) This version of your original code works for me:
#!/usr/bin/perl use strict; my %hash = ( ' Key1', ' Value1'); sub doStringTidy { my $string=shift; my $string =lc($string); $string=~s/^\s+//; $string=~s/\s+$//; return $string; } sub doHashTidy { my $hash=shift; foreach my $k (keys %{$hash}) { my $kv=doStringTidy($k); my $vv=doStringTidy($hash->{$k}); delete $hash->{$k}; $hash->{$kv} = $vv; } } doHashTidy(\%hash); foreach my $key ( keys %hash ) { print "key:$key, value:$hash{$key}\n"; }
which provides the following output:
key:key1, value:value1

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1046541]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (3)
As of 2022-08-15 07:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?