<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">
</head>
<body 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">https://github.com/tommybutler/dupfind</a><br>
<br>
--Tommy Butler<br>
</font>
<meta http-equiv="content-type" content="text/html;
charset=ISO-8859-1">
</body>
</html>