Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: Strictly frustrating !

by Crackers2 (Parson)
on Jul 26, 2013 at 15:12 UTC ( #1046539=note: print w/replies, xml ) Need Help??


in reply to Strictly frustrating !

You got some typos

foreach my $k (keys %{hash}) {
should probably be
foreach my $k (keys %{$hash}) {
and
my $vv=doStringTidy($hash{$k}); delete $hash->{$k}; $hash{$kv} = $vv;
should be
my $vv=doStringTidy($hash->{$k}); delete $hash->{$k}; $hash->{$kv} = $vv;
Since $hash is a hashref.

Replies are listed 'Best First'.
Re^2: Strictly frustrating !
by ramlight (Friar) on Jul 26, 2013 at 15:30 UTC
    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
Node Status?
node history
Node Type: note [id://1046539]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2020-10-29 01:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My favourite web site is:












    Results (266 votes). Check out past polls.

    Notices?