•Re: Re: Algorithm needed

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.

Comment on •Re: Re: Algorithm needed Download Code

Replies are listed 'Best First'.
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
Yeah, I'd probably just change that to "split", no args, which is like split ' ', $_. Even better. Thanks for clarifying. -sauoq "My two cents aren't worth a dime.";	[reply]