Help for this page

Select Code to Download


  1. or download this
    C:\test>junk 4
57147Dup after 57283 reps at C:\test\junk.pl line 18.
...
C:\test>junk 4
4Dup after 44858 reps at C:\test\junk.pl line 18.
44858
  2. or download this
    #! perl -slw
use strict;
...

printf("\r$_"), $h{ random_string( $ARGV[0] ) }++ and die "Dup after $
+_ reps" for 1 .. 1e6;