<div dir="ltr">That's beautiful Perl, Tommy. I see I will have to replace my old "Programming Perl" book with one updated for the 2000s (mine is dated 1996, and shows Perl at version 5.003).<br><br></div><div class="gmail_extra">
<br><br><div class="gmail_quote">On Tue, Dec 24, 2013 at 12:41 PM, Tommy Butler <span dir="ltr"><<a href="mailto:dfwpm@internetalias.net" target="_blank">dfwpm@internetalias.net</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div bgcolor="#FFFFFF" text="#000000">
<font face="Helvetica, Arial, sans-serif">Full disclosure: I'm not
competing in the contest as John and I are hosting it and have
written the code that generates the random dataset.<br>
<br>
However I wrote some example code that does work and which I'd
like to share to help give others a gentle push if anyone is
having trouble getting started.<br>
<br>
Feel free to steal/fork/laugh at the code as much as you like.
The code isn't extensively commented but it is very readable.
It's also simple and concise and makes use of CPAN modules, some
of which use XS code to get performance gains -- which is within
the rules for the "traditional Perl solution" competition
category.<br>
<br>
One provision is that my code purposely does not solve all the
problems. In particular it doesn't handle hard links. That's up
to you to solve.<br>
<br>
<a href="https://github.com/tommybutler/dupfind" target="_blank">https://github.com/tommybutler/dupfind</a><span class="HOEnZb"><font color="#888888"><br>
<br>
--Tommy Butler<br>
</font></span></font>
</div>
<br>_______________________________________________<br>
Dfw-pm mailing list<br>
<a href="mailto:Dfw-pm@pm.org">Dfw-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/dfw-pm" target="_blank">http://mail.pm.org/mailman/listinfo/dfw-pm</a><br>
<br></blockquote></div><br></div>