note xdg <p>Assuming a quick-and-dirty temporary filename is desired: </p> <c> my $filename = int rand 2**31; </c> <p>Or pick a large random number of your choice. Plus if you need to generate the *same* temporary filenames on successive runs, you can set the seed for rand() ahead of time.</p> <p>Similar in nature, but random alphanumerics, not unlike what File::Temp does internally:</p> <c> my @chars = ('a' .. 'z', 'A' .. 'Z'); my $filename = join("", map { $chars[int rand(0+@chars)] } 0 .. 7); </c> <div class="pmsig"><div class="pmsig-268515"> <p>-xdg</p> <p><small><i>Code written by xdg and posted on PerlMonks is [http://creativecommons.org/licenses/publicdomain|public domain]. It is provided <b>as is</b> with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.</i></small></p> </div></div> 735007 735007