perlquestion
Ovid
<p>This probably isn't a Perl-specific question, but it might be.</p>
<p>I was terribly amused, when doing some research on one of our servers, to see the following line in the command history:</p>
<code> ln -s /usr/bin/perl /usr/bin/perl\r</code>
<p>Of course, that didn't work, and apparently successive attempts failed until eventually, the following was used:</p>
<code> perl -e'symlink($_ => "$_\r") for @ARGV' /usr/bin/perl /usr/bin/python /usr/bin/ruby</code>
<p>This was done because these are dedicated servers and customers sometime FTP programs written on a Windows box to their Linux box and the symlink was considered easier than writing a custom FTP server or running a cron job to find the errant files :)</p>
<p>Can anyone think of a better solution which doesn't require manual intervention after setting up a dedicated server for a customer who doesn't know about line endings or <tt>dos2unix</tt>?</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-17000">
<p>Cheers,<br />
<a href="/index.pl?node=Ovid&lastnode_id=1072">Ovid</a></p>
<p><small>New address of <a href="http://users.easystreet.com/ovid/cgi_course/">my CGI Course</a>.</small></p>
</div></div>