Re: Problem generating a hashtable

the code below doesn't prove your statement. It works as expected on my system (perl 5.8, win xp). what's your perl?

use strict;

my %hash = map
{
     (split /:/, $_ )[0] => (split /:/, $_ )[2]
}
<DATA>;

print join ",", sort keys %hash; #key1,key2

__DATA__
key1:useless:value1
key2:useless:value2
[download]

Update:
Darn, too slow again.

holli, /regexed monk/

Comment on Re: Problem generating a hashtable Download Code

Replies are listed 'Best First'.
Re^2: Problem generating a hashtable by Tomtom (Scribe) on May 13, 2005 at 13:38 UTC
The version of Perl I'm using is ... 5.005 :/ I'd rather work on a 5.8, it you asked me, but I don't have the choice :(	[reply]
Re^3: Problem generating a hashtable by holli (Abbot) on May 13, 2005 at 13:40 UTC
What's the output when you run my code above? holli, /regexed monk/	[reply]
Re^4: Problem generating a hashtable by Tomtom (Scribe) on May 13, 2005 at 13:49 UTC
With `use strict; my %hash = map { (split /:/, $_ )[0] => (split /:/, $_ )[2] } <DATA>; print join ",", sort keys %hash; #key1,key2 __DATA__ key1:useless:value1 key2:useless:value2` [download] I get : `key1,key2` [download] The thing is, I do the same thing as your code in mine, two times : the first time, with a first array given to the map function, it works fine ; but the second time, with another array, it "inverts" the keys and the values.	[reply] [d/l] [select]