<div class="gmail_quote"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
and, sadly, it appears to insist on using /tmp for its<br>
temporary work, but on the system i am forced to use, /tmp<br>
is 99% full. can someone show me how to modify that script<br>
to use, say, ~/tmp instead? thanks.<br>
</blockquote><div><br>I suppose cleaning the garbage out of /tmp isn't an option? It really should be, either by you or someone else. Being able to delete garbage out of /tmp is why it's *called* /tmp<br><br>Given that you're specifying /tmp rather than C:/temp I'm assuming you're on a Un*x system. This is good information to know.<br>
<br>This isn't really an issue of Perl so much as it is a matter of just reading through the code and trying to find where it is that the constant string /tmp would be introduced, and intercepting or recoding that one particular line. Although, knowing something about Perl is going to help in that it will give you a good place to start with reading documentation.<br>
<br>At the top of the program, notice:<br><br><pre style="margin-left: 40px;">#<br># Include files<br>#<br>use Cwd;<br>use File::Temp 0.12 qw(tempdir tempfile);<br>use Getopt::Long 2.25;<br>use Pod::Usage;<br>use URI 1.17;<br>
</pre>That File::Temp reference looks juicy. Read its docs online at <a href="http://search.cpan.org/~tjenness/File-Temp-0.20/Temp.pm">http://search.cpan.org/~tjenness/File-Temp-0.20/Temp.pm</a><br><br>I got this URL from <a href="http://search.cpan.org/">http://search.cpan.org/</a> which is Teh R0xor!<br>
<br>In this documentation, I notice it says:<br><br><dl style="margin-left: 40px;"><dt><a name="tempfile"><b>tempfile</b></a></dt><dd>
<p>This is the basic function to generate temporary files. The behaviour of the file can be changed using various options:</p>
<pre> $fh = tempfile();<br> ($fh, $filename) = tempfile();</pre>
<p>Create a temporary file in the directory specified for temporary files, as specified by the tmpdir() function in <a href="http://search.cpan.org/perldoc?File%3A%3ASpec" class="podlinkpod">File::Spec</a>.</p></dd></dl>
There is at least one line in the program that uses this function, <br><pre> my ($handle, $tmpfile) = tempfile( DIR => $temp_dir );</pre>so this could be relevant info. Frankly, looking at this one line makes me want to try just removing the '$temp_dir' variable and throwing '~/tmp' in there, just to see how it works. (Or you could figure out where $temp_dir is set and just set it to "~/tmp" instead.)<br>
<br>So anyhow, over to the docs for File::Spec, <a href="http://search.cpan.org/~smueller/PathTools-3.29/lib/File/Spec.pm">http://search.cpan.org/~smueller/PathTools-3.29/lib/File/Spec.pm</a> where you'll see:<br><br>
<blockquote style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;" class="gmail_quote"><dl><dt><a style="" name="tmpdir_">tmpdir </a></dt></dl></blockquote><dl><dd>
<blockquote><p style="margin-left: 40px;">Returns a string representation of the first writable directory from
a list of possible temporary directories. Returns the current directory
if no writable temporary directories are found. The list of directories
checked depends on the platform; e.g. File::Spec::Unix checks <code>$ENV{TMPDIR}</code> (unless taint is on) and <em>/tmp</em>.</p><pre style="margin-left: 40px;"> $tmpdir = File::Spec->tmpdir();</pre></blockquote>
</dd></dl>This might be your most elegant fix: just set the TMPDIR environment variable to what you need it to be.<br><br>Cheers,<br> - Richard<br><br></div></div><br>