note
merlyn
<blockquote><code>
(split(/\./,$_,3))[1] =~ /^(\d+)([A-Za-z]+)(\d+)$/;
[$_, $3, $months{$2}, sprintf("%02d", $1) ]
</code></blockquote>
I guess this is [id://458215|my day to point out bad uses of $1 in the first stage of a ST]. {grin}
<p>
So, to repeat what I said there...
<p>
You are using $1, $2, $3 without testing the success of the match. This means that you might possibly be getting the previous round's data, resulting in duplicated output. What you should be doing instead is skipping over the erroneous entries, or perhaps dieing. Just to be different from the previous node, let's do the die thing:
<code>
(split(/\./,$_,3))[1] =~ /^(\d+)([A-Za-z]+)(\d+)$/ or die "improperly formed data: $_";
[$_, $3, $months{$2}, sprintf("%02d", $1) ]
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-9073">
<p>-- [http://www.stonehenge.com/merlyn/|Randal L. Schwartz, Perl hacker]
<br>
Be sure to read [id://205373|my standard disclaimer] if this is a reply.</p>
</div></div>
457993
458027