Re: Algorithm needed

How's this do ya?

#!/usr/bin/perl -w
use strict;

my %hash = ();
while (<DATA>) {
    # split based on spaces
    my ($hex, $foo, $int) = split /\s+/;
    # use hash value as an array ref
    push @{$hash{$hex}}, $int;
}
[download]

You can then access the ints by using the hash values as array refs. For instance, to print the output:

for (keys %hash) {
    print "$_ = ", join(", ", sort @{$hash{$_}}), "\n";
}
[download]

elusion : http://matt.diephouse.com

Update: D'oh! Missed the part about ints being unique. merlyn saw it though.

Comment on Re: Algorithm needed Select or Download Code

Replies are listed 'Best First'.
•Re: Re: Algorithm needed by merlyn (Sage) on Dec 05, 2002 at 23:26 UTC
Or, just do it all at once: `my %hash = (); while (<DATA>) { # split based on spaces my ($hex, $foo, $int) = split /\s+/; $hash{$hex}{$int}++; } for (keys %hash) { print "$_ = ", join(", ", sort keys %{$hash{$_}}), "\n"; }` [download] -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply] [d/l]
Re: •Re: Re: Algorithm needed by sauoq (Abbot) on Dec 05, 2002 at 23:36 UTC
`split /\s+/;` Do you recommend this as normal practice? I think the special case, `split ' '`, is usually what people really want. (Yes, this is a very minor point but I'm curious.) -sauoq "My two cents aren't worth a dime.";	[reply] [d/l] [select]
•Re: Re: •Re: Re: Algorithm needed by merlyn (Sage) on Dec 06, 2002 at 00:28 UTC
Ah. I didn't touch any part of the code except the parts I wanted to touch. Yeah, I'd probably just change that to "split", no args, which is like split ' ', $_. -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply]
Re: •Re: Re: •Re: Re: Algorithm needed by sauoq (Abbot) on Dec 11, 2002 at 20:06 UTC
Re: Re: Algorithm needed by The_Rev (Acolyte) on Dec 05, 2002 at 23:26 UTC
It works fine, except I only need the unique ints, because my real data file is quite large. I.E. `0x130005d = 10, 11, 14 0x130009c = 12, 14` [download] This is the same problem I was having earlier.	[reply] [d/l]