I need to build a hash with unixtime keys and eliminate duplicates without losing entries
why do you need to remove duplicates in the first place? Is this so that you can use them as a hash key? One simple way to do that is to append a number in the key to make them unique:
use Data::Dump qw(pp);
my @array = qw<1000 1000 1000 1010 1010 1010 1020 1022 1023>;
my %out;
while (my ($pos, $val) = each @array)
{
$out{$val.':'.$pos} = { One => 1, Two => 1 };
}
pp \%out;
__END__
{
"1000:0" => { One => 1, Two => 1 },
"1000:1" => { One => 1, Two => 1 },
"1000:2" => { One => 1, Two => 1 },
"1010:3" => { One => 1, Two => 1 },
"1010:4" => { One => 1, Two => 1 },
"1010:5" => { One => 1, Two => 1 },
"1020:6" => { One => 1, Two => 1 },
"1022:7" => { One => 1, Two => 1 },
"1023:8" => { One => 1, Two => 1 },
}
You can still access the timestamp by
splitting the keys.
Here's another method, where you remove precision from the timestamp to replace it with an index (in my example below, with a precision of 10, I remove the last digit to replace it with a value between 0 and 9).
my %out;
my %index;
my $precision = 10;
for my $val (@array)
{
my $rounded = $precision*(int($val/$precision));
die "Too many duplicates" if exists $index{$rounded} and $index{$rou
+nded} == $precision;
my $timestamp = $rounded + $index{$rounded}++;
$out{$timestamp} = { One => 1, Two => 1 };
}
pp \%out;
__END__
{
1000 => { One => 1, Two => 1 },
1001 => { One => 1, Two => 1 },
1002 => { One => 1, Two => 1 },
1010 => { One => 1, Two => 1 },
1011 => { One => 1, Two => 1 },
1012 => { One => 1, Two => 1 },
1020 => { One => 1, Two => 1 },
1021 => { One => 1, Two => 1 },
1022 => { One => 1, Two => 1 },
}
It won't work when there are too many timestamps that round down to the same value though (eg, if you remove the last two digits, you can't have 100 times the same value) and will change a value even if it was already new (1022 and 1023 became 1021 and 1022). On the other hand it's a single loop rather than two nested loops.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.